home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / tex-k / lib-6.9.tar.gz / lib-6.9.tar / texmf / fonts / ams / euler / src / eufbch.mf < prev    next >
Text File  |  1993-02-25  |  206KB  |  6,331 lines

  1. %% @metafontfile{
  2. %%     filename="eufbch.mf",
  3. %%     version="2.1",
  4. %%     date="30-MAY-1991",
  5. %%     filetype="Metafont: driver",
  6. %%     copyright="Copyright (C) American Mathematical Society,
  7. %%            all rights reserved.  Copying of this file is
  8. %%            authorized only if either:
  9. %%            (1) you make absolutely no changes to your copy
  10. %%                including name; OR
  11. %%            (2) if you do make changes, you first rename it to some
  12. %%                other name.",
  13. %%     author="American Mathematical Society",
  14. %%     address="American Mathematical Society,
  15. %%            Technical Support Department,
  16. %%            P. O. Box 6248,
  17. %%            Providence, RI 02940,
  18. %%            USA",
  19. %%     telephone="401-455-4080 or (in the USA) 800-321-4AMS",
  20. %%     email="Internet: Tech-Support@Math.AMS.org",
  21. %%     codetable="ISO/ASCII",
  22. %%     checksumtype="line count",
  23. %%     checksum="6331",
  24. %%     keywords="amsfonts, tex, metafont , euler ",
  25. %%     abstract="This is the driver file for use with 
  26. %%            the Euler Fraktur bold fonts in AMSFonts 2.1."
  27. %%     }
  28. %
  29. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  30. % Euler Fraktur Bold
  31.  
  32. % ----- This font is set up as Text Font, \textfont0, page 427 of TeXbook
  33. % however, there are some alternate characters in nonstandard positions
  34.  
  35. mode_setup;
  36. font_coding_scheme "TeX text subset";
  37.  
  38. %     EULER FRAKTUR BOLD PARAMETERS
  39.  
  40. %     These all in bitpad numbers (.001"):
  41.  
  42.      programem =      3700;     
  43.      baseline  =     0;
  44.      ascender  =     capheight;
  45.      descender =     700;
  46.      capheight =     2560;
  47.      depthy    =     700;     % depthy   =     500;
  48.       lcbody    =     1760;     % same for medium and bold.
  49.       dotheight =     capheight; %     dotheight =     2600;
  50.      theight       =     2330;
  51.      lfigheight =     capheight;
  52.      nfigbody  =     lcbody;
  53.      nfigascender =     ascender;
  54.      nfigdescender =     descender;
  55.  
  56. % the next lines added since everything was digitized too high! --- DEK
  57. extra_beginchar:=extra_beginchar & "rot:=initrot;";
  58. transform initrot; initrot:=identity;
  59.  
  60. input eubase;
  61.  
  62. % set individual character widths for bold lower case
  63.  
  64. %        20h# means 20 bitpad units.
  65.  
  66. lefta# = 0h#;     righta# = 0h#;
  67. leftb# = 0h#;     rightb# = -50h#;
  68. leftc# = 0h#;     rightc# = 0h#;
  69. leftd# = 0h#;     rightd# = 0h#;
  70. lefte# = 0h#;     righte# = 50h#;
  71. leftf# = 0h#;     rightf# = 0h#;
  72. leftg# = 0h#;     rightg# = 0h#;
  73. lefth# = 0h#;     righth# = 0h#;
  74. lefti# = 0h#;     righti# = 0h#;
  75. leftj# = 0h#;     rightj# = 0h#;
  76. leftk# = 0h#;     rightk# = 0h#;
  77. leftl# = 0h#;     rightl# = 0h#;
  78. leftm# = 0h#;     rightm# = 0h#;
  79. leftn# = 0h#;     rightn# = 0h#;
  80. lefto# = 0h#;     righto# = 0h#;
  81. leftp# = 40h#;     rightp# = 0h#;
  82. leftq# = 0h#;     rightq# = 0h#;
  83. leftr# = 0h#;     rightr# = 0h#;
  84. lefts# = 0h#;     rights# = 0h#;
  85. leftt# = 0h#;     rightt# = 0h#;
  86. leftu# = 0h#;     rightu# = 0h#;
  87. leftv# = 0h#;     rightv# = 0h#;
  88. leftw# = 0h#;     rightw# = 0h#;
  89. leftx# = 0h#;     rightx# = 0h#;
  90. lefty# = 0h#;     righty# = 0h#;
  91. leftz# = 0h#;     rightz# = 0h#;
  92.  
  93. % BOLD NONLINING FIGURES
  94. no_stem_round;
  95.  
  96. "rbn0";
  97.  
  98. %charbegin( "0", 1837h#, nfigbody*v#, baseline );
  99. charbegin( "0", 1858h#, nfigbody*v#, baseline ); % DEK
  100.  
  101. n := 10;
  102. t1 := 0;
  103. t2 := 2;
  104. t3 := 4;
  105. t4 := 7;
  106. t5 := 9;
  107. t6 := 10;
  108. t7 := 12;
  109. t8 := 15;
  110. t9 := 17;
  111. t10 := 19;
  112.  
  113. adj_fill.A(1, 6)                    % fixed x points
  114.      ()                         % fixed y points
  115.      ((1,1), (5,1), (6,2), (10,2))          % tied points
  116.      ((4,7), (2,9))                    % verticals
  117.      ((5,6), (3,8), (1,10))               % horizontals
  118.      ((983,1856){-301,-129}...          % 0
  119.       (473,1526){-1,-1}...               % 1
  120.       (127,692){0,-1}...               % 2
  121.       (345,131){1,-1}...               % 3
  122.       (744,-42){1,0}...               % 4
  123.       (1033,39){592,311}...               % *5
  124.       (1336,269){1,1}...               % 6
  125.       (1670,1015){0,1}...               % 7
  126.       (1412,1622){-1,1}...{-450,131}          % 8
  127.       (983,1856)--                    % 9
  128.       (755,1554){279,-80}...               % 10
  129.       (1086,1344){1,-1}...               % 11
  130.       (1342,781){0,-1}...               % 12
  131.       (1310,525){-122,-425}...          % *13
  132.       (1220,356){-1,-1}...               % 14
  133.       (965,271){-1,0}...               % 15
  134.       (683,387){-1,1}...               % 16
  135.       (444,962){0,1}...               % 17
  136.       (551,1380){649,1140}...{283,81}     % 18
  137.       (755,1554)--cycle);               % 19
  138.  
  139. endchar(0);
  140.  
  141. "rbn1";
  142.  
  143. %charbegin( "1", 1868h#, nfigbody*v#, baseline );
  144. charbegin( "1", 1858h#, nfigbody*v#, baseline ); % DEK
  145. n := 8;
  146. t1 := 0;
  147. t2 := 3;
  148. t3 := 6;
  149. t4 := 7;
  150. t5 := 8;
  151. t6 := 12;
  152. t7 := 13;
  153. t8 := 14;
  154.  
  155. adj_fill.A()                         % fixed x points
  156.      ()                         % fixed y points
  157.      ()                         % tied points
  158.      ((4,5), (2,6), (7,8))               % verticals
  159.      ((3,4), (1,8))                    % horizontals
  160.      ((303,1667){381,-49}...               % 0
  161.       (589,1619){286,-48}...               % 1
  162.       (771,1481){117,-346}...          % 2
  163.       (799,1245){0,-1}...               % 3
  164.       (760,251){-23,-401}...               % 4
  165.       (673,168){-212,3}...{-1,0}          % 5
  166.       (171,176){0,-1}...{-2,-175}          % 6
  167.       (169,1)--                    % 7
  168.       (1719,1){-5,156}...{0,1}          % 8
  169.       (1714,157){-1,0}...               % 9
  170.       (1218,156){-305,12}...               % 10
  171.       (1150,231){9,464}...               % 11
  172.       (1150,896){0,1}...{31,281}          % 12
  173.       (1202,1811){-643,-19}...{-905,-28}     % 13
  174.       (297,1783)--cycle);               % 14
  175.  
  176. endchar(0);
  177.  
  178. "rbn2";
  179.  
  180. %charbegin( "2", 1859h#, nfigbody*v#, baseline );
  181. charbegin( "2", 1858h#, nfigbody*v#, baseline ); % DEK
  182. n := 11;
  183. t1 := 0;
  184. t2 := 1;
  185. t3 := 5;
  186. t4 := 7;
  187. t5 := 8;
  188. t6 := 9;
  189. t7 := 11;
  190. t8 := 13;
  191. t9 := 16.75;
  192. t10 := 17;
  193. t11 := 18;
  194.  
  195. adj_fill.A(6, 9, 10)                    % fixed x points
  196.      (5)                         % fixed y points
  197.      ()                         % tied points
  198.      ((3,8), (1,2))                    % verticals
  199.      ((4,7), (2,11))                    % horizontals
  200.      ((1685,4){-1547,9}...{-1547,9}          % 0
  201.       (138,13){-1,79}...{-1,79}          % 1
  202.       (137,92){404,408}...               % 2
  203.       (541,500){404,408}...               % 3
  204.       (853,895){422,734}...               % *4
  205.       (963,1234){0,1}...               % 5
  206.       (879,1481){-1,1}...               % 6
  207.       (701,1558){-1,0}...{-383,-206}          % 7
  208.       (299,1406)--                    % 8
  209.       (242,1508){406,287}...               % 9
  210.       (632,1738){690,309}...               % *10
  211.       (932,1817){1,0}...               % 11
  212.       (1240,1718){1,-1}...               % 12
  213.       (1347,1431){0,-1}...               % 13
  214.       (1267,1169){-310,-581}...          % *14
  215.       (1037,850){-411,-462}...          % 15
  216.       (626,388){-223,-238}...          % 16
  217.       (622,375){.6415,-1.309}...          % 17
  218.       (675,355){585,36}...{307,15}          % 18
  219.       (1725,391){42,-14}...{42,-14}          % 19
  220.       (1767,377)--cycle);               % 20
  221.  
  222. endchar(0);
  223.  
  224. "rbn3";
  225.  
  226. %charbegin( "3", 1849h#, nfigbody*v#, nfigdescender*v#);
  227. charbegin( "3", 1858h#, nfigbody*v#, nfigdescender*v#); % DEK
  228. n := 15;
  229. t1 := 0;
  230. t2 := 1;
  231. t3 := 3;
  232. t4 := 6;
  233. t5 := 7;
  234. t6 := 9;
  235. t7 := 11;
  236. t8 := 12;
  237. t9 := 13;
  238. t10 := 14;
  239. t11 := 16;
  240. t12 := 18;
  241. t13 := 21;
  242. t14 := 23;
  243. t15 := 24;
  244.  
  245. adj_fill.A(9, 15)                    % fixed x points
  246.      (1, 8)                         % fixed y points
  247.      ()                         % tied points
  248.      ((6,11), (5,12), (3,13))          % verticals
  249.      ((7,10), (4,5), (2,14))               % horizontals
  250.      ((162,-413){432,-256}...          % 0
  251.       (620,-552){1,0}...               % 1
  252.       (1029,-397){1,1}...               % 2
  253.       (1196,62){0,1}...               % 3
  254.       (1079,457){-1,1}...               % 4
  255.       (835,574){-648,158}...{-1,0}          % *5
  256.       (431,615){0,141}...{0,141}          % 6
  257.       (431,756){1,0}...               % 7
  258.       (977,933){1,1}...               % 8
  259.       (1087,1235){0,1}...               % 9
  260.       (968,1503){-1,1}...               % 10
  261.       (757,1565){-1,0}...{-415,-279}          % 11
  262.       (393,1418)--                    % 12
  263.       (321,1486){364,382}...               % 13
  264.       (964,1805){1,0}...               % 14
  265.       (1333,1673){1,-1}...               % 15
  266.       (1461,1376){0,-1}...               % 16
  267.       (1306,998){-1,-1}...{-325,-123}     % 17
  268.       (986,786){11,-43}...{11,-43}          % 18
  269.       (997,743){495,-17}...               % 19
  270.       (1483,553){1,-1}...               % 20
  271.       (1640,152){0,-1}...               % 21
  272.       (1405,-439){-1,-1}...               % 22
  273.       (718,-714){-1,0}...{-447,341}          % 23
  274.       (94,-492)--cycle);               % 24
  275.  
  276. endchar(0);
  277.  
  278. "rbn4";
  279.  
  280. %charbegin( "4", 1863h#, nfigbody*v#, nfigdescender*v#);
  281. charbegin( "4", 1858h#, nfigbody*v#, nfigdescender*v#); % DEK
  282.  
  283. n := 11;
  284. t1 := 0;
  285. t2 := 1;
  286. t3 := 3;
  287. t4 := 5;
  288. t5 := 7;
  289. t6 := 8;
  290. t7 := 10;
  291. t8 := 11;
  292. t9 := 13;
  293. t10 := 14;
  294. t11 := 15;
  295.  
  296. adj_fill.A(1, 4, 7)                    % fixed x points
  297.      (3, 8)                         % fixed y points
  298.      ((5,1), (6,2), (9,2), (10,1), (11,3))     % tied points
  299.      ((2,9))                         % verticals
  300.      ((5,6))                         % horizontals
  301.      ((1772,225){-325,0}...{-325,0}          % 0
  302.       (1447,225){6,253}...{0,1}          % 1
  303.       (1476,1782){-31,51}...{-31,51}          % 2
  304.       (1445,1833){-306,-57}...{-306,-57}     % 3
  305.       (1139,1776){-1097,-1671}...{-1097,-1671}% 4
  306.       (42,105){0,-107}...{0,-107}          % 5
  307.       (42,-2){1016,0}...{1016,0}          % 6
  308.       (1058,-2)--                    % 7
  309.       (1058,225){-712,0}...{-712,0}          % 8
  310.       (346,225){-2,27}...{-2,27}          % 9
  311.       (344,252){354,581}...{160,205}          % 10
  312.       (1051,1341){14,-14}...{14,-14}          % 11
  313.       (1065,1327){0,-1}...               % 12
  314.       (1058,225){-.006352,-2}...{0,-227}     % 13
  315.       (1058,-2){389,-4}...{389,-4}          % 14
  316.       (1447,-6){1,0}...{264,2}          % 15
  317.       (1711,-4)--cycle);               % 16
  318.  
  319. n := 2;
  320. t1 := 2;
  321. t2 := 3;
  322.  
  323. adj_fill.B()                         % fixed x points
  324.      ()                         % fixed y points
  325.      ((1,1), (2,3))                    % tied points
  326.      ()                         % verticals
  327.      ()                         % horizontals
  328.      ((1087,-732){-35,36}...{-35,36}          % 0
  329.       (1052,-696){11,370}...{0,1}          % 1
  330.       (1058,-2)--                    % 2
  331.       (1447,-6){0,-1}...{19,-373}          % 3
  332.       (1459,-572)--cycle);               % 4
  333.  
  334. endchar(0);
  335.  
  336. "rbn5";
  337.  
  338. %charbegin( "5", 1857h#, nfigbody*v#, nfigdescender*v#);
  339. charbegin( "5", 1858h#, nfigbody*v#, nfigdescender*v#); % DEK
  340.  
  341. n := 13;
  342. t1 := 1;
  343. t2 := 3;
  344. t3 := 4;
  345. t4 := 6;
  346. t5 := 8;
  347. t6 := 9;
  348. t7 := 10;
  349. t8 := 11;
  350. t9 := 13;
  351. t10 := 15;
  352. t11 := 17;
  353. t12 := 18;
  354. t13 := 19;
  355.  
  356. adj_fill.A(6, 13)                    % fixed x points
  357.      (7)                         % fixed y points
  358.      ()                         % tied points
  359.      ((4,9), (2,11))                    % verticals
  360.      ((5,8), (3,10), (1,12))               % horizontals
  361.      ((1524,1437){-1047,0}...{-1047,0}     % 0
  362.       (477,1437){-20,-245}...{0,-1}          % 1
  363.       (457,806){28,6}...{28,6}          % 2
  364.       (485,812){269,122}...               % 3
  365.       (885,895){1,0}...               % 4
  366.       (1432,715){1,-1}...               % 5
  367.       (1624,212){0,-1}...               % 6
  368.       (1400,-422){-1,-1}...               % 7
  369.       (705,-707){-1,0}...{-292,205}          % 8
  370.       (57,-510)--                    % 9
  371.       (110,-414){519,-352}...          % 10
  372.       (536,-563){1,0}...               % 11
  373.       (960,-398){1,1}...               % 12
  374.       (1162,163){0,1}...               % 13
  375.       (1012,611){-1,1}...               % 14
  376.       (717,713){-1,0}...{-229,-214}          % 15
  377.       (382,561){-85,38}...{-85,38}          % 16
  378.       (297,599){0,1182}...{0,1182}          % 17
  379.       (297,1781){1321,0}...{1321,0}          % 18
  380.       (1618,1781)--cycle);               % 19
  381.  
  382. endchar(0);
  383.  
  384. "rbn6";
  385.  
  386. %charbegin( "6", 1857h#, lfigheight*v#, baseline );
  387. charbegin( "6", 1858h#, lfigheight*v#, baseline ); % DEK
  388. n := 14;
  389. t1 := 0;
  390. t2 := 1;
  391. t3 := 3;
  392. t4 := 5;
  393. t5 := 7;
  394. t6 := 9;
  395. t7 := 10;
  396. t8 := 11;
  397. t9 := 12;
  398. t10 := 14;
  399. t11 := 16;
  400. t12 := 19;
  401. t13 := 20;
  402. t14 := 23;
  403.  
  404. adj_fill.A(1, 7)                    % fixed x points
  405.      (8)                         % fixed y points
  406.      ((7,1), (8,2), (12,2), (13,1))          % tied points
  407.      ((5,10), (3,12))               % verticals
  408.      ((6,9), (4,11), (2,14))               % horizontals
  409.      ((1717,2578){-290,51}...          % 0
  410.       (1545,2606){-1,0}...               % 1
  411.       (656,2185){-1,-1}...               % 2
  412.       (149,936){0,-1}...               % 3
  413.       (421,134){1,-1}...               % 4
  414.       (817,-43){1,0}...               % 5
  415.       (1458,238){1,1}...               % 6
  416.       (1713,800){0,1}...               % 7
  417.       (1513,1284){-1,1}...               % 8
  418.       (1124,1430){-1,0}...{-442,-313}     % 9
  419.       (532,1203)--                    % 10
  420.       (541,1059){476,269}...               % 11
  421.       (904,1185){1,0}...               % 12
  422.       (1231,1059){1,-1}...               % 13
  423.       (1410,612){0,-1}...               % 14
  424.       (1266,257){-1,-1}...               % 15
  425.       (1021,146){-1,0}...               % 16
  426.       (780,251){-1,1}...               % 17
  427.       (613,565){-239,808}...{-16,456}     % *18
  428.       (541,1059){-9,144}...{-9,144}          % 19
  429.       (532,1203){18,492}...               % 20
  430.       (628,1772){327,965}...               % *21
  431.       (859,2168){1,1}...               % 22
  432.       (1329,2390){1,0}...{255,-174}          % 23
  433.       (1604,2305){79,6}...{79,6}          % 24
  434.       (1683,2311)--cycle);               % 25
  435.  
  436. endchar(0);
  437.  
  438. "rbn7";
  439.  
  440. %charbegin( "7", 1851h#, nfigbody*v#, nfigdescender*v#);
  441. charbegin( "7", 1858h#, nfigbody*v#, nfigdescender*v#); % DEK
  442. n := 4;
  443. t1 := 2;
  444. t2 := 3;
  445. t3 := 5;
  446. t4 := 10;
  447.  
  448. adj_fill.A()                         % fixed x points
  449.      (4)                         % fixed y points
  450.      ()                         % tied points
  451.      ((1,2))                         % verticals
  452.      ((2,3))                         % horizontals
  453.      ((533,-727){145,337}...{392,569}     % 0
  454.       (1852,1686){0,87}...{0,87}          % 1
  455.       (1852,1773){-1581,0}...{-1581,0}     % 2
  456.       (271,1773)--                    % 3
  457.       (176,1392){43,-40}...{43,-40}          % 4
  458.       (219,1352){1141,36}...               % 5
  459.       (1360,1388){272,17}...               % 6
  460.       (1390,1372){.7409,-1.461}...          % 7
  461.       (1383,1323){-287,-484}...{-312,-493}     % 8
  462.       (168,-646){13,-85}...{13,-85}          % 9
  463.       (181,-731)--cycle);               % 10
  464.  
  465. endchar(0);
  466.  
  467. "rbn8";
  468.  
  469. %charbegin( "8", 1847h#, lfigheight*v#, baseline );
  470. charbegin( "8", 1858h#, lfigheight*v#, baseline ); % DEK
  471. n := 20;
  472. t1 := 0;
  473. t2 := 2;
  474. t3 := 4;
  475. t4 := 6;
  476. t5 := 8;
  477. t6 := 9;
  478. t7 := 11;
  479. t8 := 14;
  480. t9 := 16;
  481. t10 := 18;
  482. t11 := 19;
  483. t12 := 21;
  484. t13 := 23;
  485. t14 := 25;
  486. t15 := 26;
  487. t16 := 27;
  488. t17 := 29;
  489. t18 := 31;
  490. t19 := 33;
  491. t20 := 35;
  492.  
  493. adj_fill.A(1, 11)                    % fixed x points
  494.      (10, 20)                    % fixed y points
  495.      ((1,1), (5,1), (6,2), (10,3), (11,4), (15,4), (16,3), (20,2))% tied points
  496.      ((9,12), (7,14), (4,17), (2,19))     % verticals
  497.      ((8,13), (3,18))               % horizontals
  498.      ((825,1214){376,-228}...          % 0
  499.       (1167,965){1,-1}...               % 1
  500.       (1352,582){0,-1}...               % 2
  501.       (1223,252){-1,-1}...               % 3
  502.       (943,154){-1,0}...               % 4
  503.       (691,258){-1,1}...               % 5
  504.       (498,725){0,1}...               % 6
  505.       (605,1062){1,1}...{327,163}          % 7
  506.       (825,1214){339,261}...{339,261}     % 8
  507.       (1164,1475){271,180}...          % 9
  508.       (1502,1803){461,693}...          % *10
  509.       (1625,2168){0,1}...               % 11
  510.       (1493,2477){-1,1}...               % 12
  511.       (1285,2588){-541,167}...{-382,25}     % *13
  512.       (952,2644){-394,-152}...          % 14
  513.       (468,2360){-1,-1}...               % 15
  514.       (275,1972){0,-1}...               % 16
  515.       (391,1655){442,-665}...{563,-464}     % *17
  516.       (717,1307)--                    % 18
  517.       (1049,1581){-521,433}...          % 19
  518.       (733,1889){-427,529}...          % *20
  519.       (622,2110){0,1}...               % 21
  520.       (693,2333){500,697}...{264,100}     % 22
  521.       (848,2459){425,-28}...               % 23
  522.       (1164,2331){1,-1}...               % 24
  523.       (1274,2040){0,-1}...{-296,-200}     % 25
  524.       (1049,1581){-332,-274}...{-332,-274}     % 26
  525.       (717,1307){-425,-215}...          % 27
  526.       (327,1057){-1,-1}...               % 28
  527.       (142,595){0,-1}...               % 29
  528.       (320,153){1,-1}...               % 30
  529.       (797,-20){1,0}...               % 31
  530.       (1472,237){1,1}...               % 32
  531.       (1699,763){0,1}...               % 33
  532.       (1478,1240){-1,1}...{-336,229}          % 34
  533.       (1164,1475)--cycle);               % 35
  534.  
  535. endchar(0);
  536.  
  537. "rbn9";
  538.  
  539. %charbegin( "9", 1846h#, nfigbody*v#, nfigdescender*v#);
  540. charbegin( "9", 1858h#, nfigbody*v#, nfigdescender*v#); % DEK
  541. n := 14;
  542. t1 := 0;
  543. t2 := 2;
  544. t3 := 4;
  545. t4 := 6;
  546. t5 := 8;
  547. t6 := 10;
  548. t7 := 11;
  549. t8 := 12;
  550. t9 := 14;
  551. t10 := 17;
  552. t11 := 20;
  553. t12 := 22;
  554. t13 := 23;
  555. t14 := 25;
  556.  
  557. adj_fill.A(1, 6)                    % fixed x points
  558.      ()                         % fixed y points
  559.      ((6,1), (7,2), (12,2), (13,1))          % tied points
  560.      ((4,9), (2,11))                    % verticals
  561.      ((5,8), (3,10), (1,14))               % horizontals
  562.      ((262,-723){1,0}...               % 0
  563.       (1322,-332){1,1}...               % 1
  564.       (1722,818){0,1}...               % 2
  565.       (1439,1599){-1,1}...{-1,0}          % 3
  566.       (851,1804){-252,-137}...          % 4
  567.       (298,1459){-1,-1}...               % 5
  568.       (92,881){0,-1}...               % 6
  569.       (302,351){1,-1}...               % 7
  570.       (675,160){1,0}...               % 8
  571.       (849,196){397,180}...{397,180}          % 9
  572.       (1246,376)--                    % 10
  573.       (1201,482){-1,-1}...               % 11
  574.       (985,427){-1,0}...               % 12
  575.       (714,522){-1,1}...               % 13
  576.       (474,1052){0,1}...               % 14
  577.       (506,1308){124,426}...               % *15
  578.       (598,1478){1,1}...               % 16
  579.       (811,1571){1,0}...               % 17
  580.       (1084,1424){1,-1}...               % 18
  581.       (1232,1163){200,-635}...          % *19
  582.       (1284,789){0,-1}...               % 20
  583.       (1262,602){-83,-307}...          % *21
  584.       (1201,482){-1,-1}...{45,-106}          % 22
  585.       (1246,376){-51,-683}...          % 23
  586.       (918,-364){-1,-1}...{-538,-41}          % 24
  587.       (267,-608)--cycle);               % 25
  588.  
  589. endchar(0);
  590.  
  591. % LOWER CASE
  592. set_stem_round(300,320,340,340,360,390);
  593. initrot:=identity shifted(0,-60v);
  594. more_side(100h#); % DEK
  595.  
  596. "fbla";
  597.  
  598. charbegin( "a", 1690h#, lcbody*v#, baseline );
  599.  
  600. n := 6;
  601. t1 := 0;
  602. t2 := 3;
  603. t3 := 4;
  604. t4 := 5;
  605. t5 := 6;
  606. t6 := 9;
  607.  
  608. adj_fill.A(1)                         % fixed x points
  609.      ()                         % fixed y points
  610.      ((2,4), (3,1), (4,2), (5,3))          % tied points
  611.      ((3,6))                         % verticals
  612.      ()                         % horizontals
  613.      ((1742,364){-455,-410}...{-455,-410}     % 0
  614.       (1287,-46){-223,383}...{-449,462}     % 1
  615.       (1064,259){-4,98}...{-4,98}          % 2
  616.       (1060,357){-3,109}...{-3,109}          % 3
  617.       (1057,466){-8,949}...{-8,949}          % 4
  618.       (1049,1415){177,274}...{177,274}     % 5
  619.       (1226,1689)--                    % 6
  620.       (1434,1791){23,-25}...{23,-25}          % 7
  621.       (1457,1766){-145,-693}...          % 8
  622.       (1405,1025){0,-1}...{16,-351}          % 9
  623.       (1416,590){161,-233}...{161,-233}     % 10
  624.       (1577,357){147,73}...{147,73}          % 11
  625.       (1724,430)--cycle);               % 12
  626.  
  627. n := 6;
  628. t1 := 0;
  629. t2 := 2.202;
  630. t3 := 5;
  631. t4 := 6;
  632. t5 := 8.408;
  633. t6 := 11;
  634.  
  635. adj_fill.B()                         % fixed x points
  636.      ()                         % fixed y points
  637.      ((1,4), (3,3), (4,2), (6,1))          % tied points
  638.      ((2,5))                         % verticals
  639.      ()                         % horizontals
  640.      ((1060,357){-585,-414}...{-585,-414}     % 0
  641.       (475,-57){-236,224}...{-329,470}     % 1
  642.       (153,330){-17,383}...{94,685}          % 2
  643.       (212,1418){255,132}...{329,232}     % 3
  644.       (832,1807){202,-96}...{385,-74}     % 4
  645.       (1226,1689)--                    % 5
  646.       (1049,1415){-1,0}...{-487,145}          % 6
  647.       (592,1498){-278,-506}...          % 7
  648.       (516,1157){-72,-927}...{23,-358}     % *8
  649.       (520,571){305,-356}...{216,-173}     % 9
  650.       (776,306){281,160}...{281,160}          % 10
  651.       (1057,466)--cycle);               % 11
  652.  
  653. endchar(0);
  654.  
  655. "fblb";
  656.  
  657. charbegin( "b", 1700h# + leftb# + rightb#, ascender*v#, baseline );
  658.  
  659. n := 9;
  660. t1 := 5;
  661. t2 := 9;
  662. t3 := 11;
  663. t4 := 12;
  664. %t5 := 15;
  665. t5 := 14.6; % DEK
  666. t6 := 18;
  667. t7 := 19;
  668. t8 := 20;
  669. t9 := 24;
  670.  
  671. adj_fill.A(3, 9)                    % fixed x points
  672.      ()                         % fixed y points
  673.      ((3,1), (4,2), (7,2), (8,1))          % tied points
  674.      ((2,5), (1,6))                    % verticals
  675.      ()                         % horizontals
  676.      ((835,2617){-316,-170}...{-445,-326}     % 0
  677.       (311,2266){-79,288}...               % 1
  678.       (232,2554){-1.147,.4945}...          % 2
  679.       (220,2552){-62,-33}...{-62,-33}     % *3
  680.       (170,2521){24,-240}...               % 4
  681.       (210,1582){0,-1}...{-53,-550}          % 5
  682.       (170,323){143,-170}...{322,-268}     % 6
  683.       (570,-59){309,128}...{630,408}          % 7
  684.       (1422,415){87,550}...{-43,839}          % 8
  685.       (1471,1593){-391,187}...{-406,231}     % 9
  686.       (1034,1812){-472,-353}...{-472,-353}     % 10
  687.       (562,1459)--                    % 11
  688.       (568,1349){217,124}...{217,124}     % 12
  689.       (785,1473){307,-118}...{307,-118}     % 13
  690.       (1092,1355){71,-780}...          % 14
  691.       (1099,727){-98,-1094}...{-122,-287}     % *15
  692.       (994,261){-305,96}...               % 16
  693.       (802,360){-423,287}...{-238,221}     % *17
  694.       (571,548){-24,692}...{0,1}          % 18
  695.       (568,1349){-6,110}...{-6,110}          % 19
  696.       (562,1459){0,1}...               % 20
  697.       (560,1891){20,365}...               % 21
  698.       (599,2180){115,464}...               % *22
  699.       (675,2355){243,292}...{305,203}     % 23
  700.       (898,2576)--cycle);               % 24
  701.  
  702. endchar(leftb#);
  703.  
  704. "fblc";
  705.  
  706. charbegin( "c",1254h#, lcbody*v#, baseline );
  707.  
  708. n := 5;
  709. t1 := 0;
  710. t2 := 2.5;
  711. t3 := 5;
  712. t4 := 10.5;
  713. t5 := 13;
  714.  
  715. adj_fill.A(1, 3, 5)                    % fixed x points
  716.      ()                         % fixed y points
  717.      ()                         % tied points
  718.      ((2,4))                         % verticals
  719.      ()                         % horizontals
  720.      ((1211,404){-316,-230}...{-488,-311}     % 0
  721.       (594,-37){-257,223}...{-415,496}     % 1
  722.       (186,385){-16,426}...{131,722}          % 2
  723.       (212,1413){613,397}...{613,397}     % 3
  724.       (825,1810){415,-87}...{387,-257}     % 4
  725.       (1231,1649)--                    % 5
  726.       (986,1292){-32,-1}...{-32,-1}          % 6
  727.       (954,1291){-366,383}...          % 7
  728.       (630,1515){-301,105}...{-31,-1}     % 8
  729.       (599,1514){-19,-34}...               % 9
  730.       (580,1480){-99,-483}...{37,-574}     % 10
  731.       (561,631){512,-554}...{240,-192}     % 11
  732.       (878,326){333,154}...{333,154}          % 12
  733.       (1211,480)--cycle);               % 13
  734.  
  735. endchar(0);
  736.  
  737. "fbld";
  738.  
  739. charbegin( "d",1646h#, theight*v#, baseline );
  740.  
  741. n := 5;
  742. t1 := 0;
  743. t2 := 3;
  744. t3 := 6;
  745. t4 := 10.5;
  746. t5 := 14;
  747.  
  748. adj_fill.A(1)                         % fixed x points
  749.      ()                         % fixed y points
  750.      ()                         % tied points
  751.      ((3,4), (2,5))                    % verticals
  752.      ()                         % horizontals
  753.      ((-103,2120){189,121}...{569,249}     % 0
  754.       (454,2400){334,-91}...               % 1
  755.       (938,2191){1025,-583}...{528,-425}     % *2
  756.       (1479,1817){34,-303}...{-171,-571}     % 3
  757.       (1365,461){-222,-214}...{-426,-297}     % 4
  758.       (697,-46){-244,159}...{-305,317}     % 5
  759.       (180,376){-6,299}...{100,784}          % 6
  760.       (220,1328){185,198}...{402,311}     % 7
  761.       (707,1760)--                    % 8
  762.       (776,1723){-174,-157}...{-171,-202}     % 9
  763.       (588,1519){-90,-407}...{22,-342}     % 10
  764.       (552,606){411,-411}...{218,-106}     % 11
  765.       (974,303){257,496}...               % 12
  766.       (1112,825){142,1276}...{-25,330}     % *13
  767.       (1116,1579){-367,349}...          % 14
  768.       (607,1984){-894,547}...          % *15
  769.       (222,2126){-1,0}...{-258,-116}          % 16
  770.       (-44,2067)--cycle);               % 17
  771.  
  772. endchar(0);
  773.  
  774. "fble";
  775.  
  776. charbegin( "e", 1230h# + lefte# + righte#, lcbody*v#, baseline );
  777.  
  778. slidex:=-40;
  779.  
  780. n := 8;
  781. t1 := 3;
  782. t2 := 4;
  783. t3 := 6;
  784. t4 := 7;
  785. t5 := 8;
  786. t6 := 9;
  787. %t7 := 11;
  788. t7 := 11.6; % DEK
  789. t8 := 14;
  790.  
  791. adj_fill.A(3, 6, 8)                    % fixed x points
  792.      ()                         % fixed y points
  793.      ((1,2), (2,1), (4,1), (5,2))          % tied points
  794.      ((1,7))                         % verticals
  795.      ()                         % horizontals
  796.      ((1206,460){-303,-147}...{-303,-147}     % 0
  797.       (903+slidex,313){-236,171}...{-407,383}% 1
  798.          (530+slidex,610){-2,119}...               % 2
  799.       (528+slidex,729){-.03567,2}...{-3,159}     % 3
  800.       (525+slidex,888){-6,310}...{123,660}     % 4
  801.       (555,1507){185,-178}...{289,-216}     % 5
  802.       (915,1208+20){-1,-1}...{-39,-32}     % 6
  803.       (525+slidex,888)--               % 7
  804.       (528+slidex,729){546,464}...{185,186}     % 8
  805.       (1244,1401){-521,384}...{-231,232}     % 9
  806.       (797,1804){-460,-261}...{-334,-212}     % 10
  807.       (195,1428){-104,-773}...{25,-356}     % 11
  808.       (167,380){428,-473}...{241,-179}     % 12
  809.       (618,-42){512,339}...{136,102}          % 13
  810.       (1237,402)--cycle);               % 14
  811. endchar(lefte#);
  812.  
  813. "fblf";
  814. % I switched this with character 2, for better discrimination with RB --- DEK
  815. %charbegin( 2, 1018h#, ascender*v#, descender*v#);
  816. charbegin("f", 1018h#, ascender*v#, descender*v#); % DEK
  817.  
  818. n := 11;
  819. t1 := 1;
  820. t2 := 5;
  821. t3 := 7;
  822. t4 := 8;
  823. t5 := 12;
  824. t6 := 14;
  825. t7 := 16;
  826. t8 := 17;
  827. t9 := 19;
  828. t10 := 20;
  829. t11 := 21;
  830.  
  831. adj_fill.A(3, 7, 11)                    % fixed x points
  832.      (5)                         % fixed y points
  833.      ()                         % tied points
  834.      ((2,8), (4,6))                    % verticals
  835.      ((2,4), (8,9), (1,10))               % horizontals
  836.      ((1032,2527){-410,-344}...          % 0
  837.       (888,2467){-1,0}...               % 1
  838.       (778,2503){-253,140}...{-324,284}     % *2
  839.       (635,2607){-231,-211}...{-275,-391}     % 3
  840.       (207,2114){0,-1}...{148,-600}          % 4
  841.       (299,1539){-136,0}...{-136,0}          % 5
  842.       (163,1539){-154,-163}...{-154,-163}     % 6
  843.       (9,1376){312,0}...{312,0}          % 7
  844.       (321,1376){9,-279}...               % 8
  845.       (340,395){0,-1}...               % 9
  846.       (262,-539){-73,-221}...{-73,-221}     % 10
  847.       (189,-760)--                    % 11
  848.       (255,-761){317,519}...{113,258}     % 12
  849.       (624,-39){80,744}...{0,1}          % 13
  850.       (698,1376){243,0}...{243,0}          % 14
  851.       (941,1376){112,163}...{112,163}     % 15
  852.       (1053,1539){-361,0}...{-361,0}          % 16
  853.       (692,1539){-127,430}...          % 17
  854.       (562,1859){-170,357}...{-10,137}     % 18
  855.       (439,2230){281,-95}...{1,0}          % 19
  856.       (796,2167){272,316}...{272,316}     % 20
  857.       (1068,2483)--cycle);               % 21
  858.  
  859. endchar(0);
  860.  
  861. "fblg";
  862.  
  863. charbegin( "g",1665h#, lcbody*v#, descender*v#);
  864.  
  865. n := 8;
  866. t1 := 0;
  867. t2 := 1;
  868. t3 := 2;
  869. t4 := 4;
  870. t5 := 6;
  871. t6 := 7;
  872. t7 := 8;
  873. t8 := 11;
  874.  
  875. adj_fill.A(5, 8)                    % fixed x points
  876.      ()                         % fixed y points
  877.      ((1,6), (2,1), (3,2), (5,3), (6,4), (8,5))% tied points
  878.      ((4,7))                         % verticals
  879.      ()                         % horizontals
  880.      ((1098,355){-608,-487}...{-608,-487}     % 0
  881.       (490,-132){-38,108}...{-38,108}     % 1
  882.       (452,-24){-264,342}...{-264,342}     % 2
  883.       (188,318){-19,239}...{165,726}          % 3
  884.       (239,1415){135,94}...{557,318}          % 4
  885.       (855,1811){402,-217}...{265,-52}     % 5
  886.       (1257,1635)--                    % 6
  887.       (1117,1330){-331,56}...{-285,134}     % 7
  888.       (605,1516){-135,-757}...{27,-261}     % 8
  889.       (575,550){262,-313}...{178,-96}     % 9
  890.       (846,303){294,177}...{132,119}          % 10
  891.       (1104,476)--cycle);               % 11
  892.  
  893. n := 11;
  894. t1 := 0;
  895. t2 := 1;
  896. t3 := 2;
  897. t4 := 5;
  898. t5 := 6;
  899. t6 := 7;
  900. t7 := 8;
  901. t8 := 10;
  902. t9 := 12;
  903. t10 := 14;
  904. t11 := 18;
  905.  
  906. adj_fill.B(8, 11)                    % fixed x points
  907.      ()                         % fixed y points
  908.      ((1,2), (2,1), (4,6), (5,5), (6,4), (7,3))% tied points
  909.      ((4,9))                         % verticals
  910.      ((3,10))                    % horizontals
  911.      ((452,-24){38,-108}...{38,-108}          % 0
  912.       (490,-132){192,-123}...          % 1
  913.       (1031,-401){1,0}...               % 2
  914.       (1171,-363){1,1}...               % 3
  915.       (1197,-214){0,1}...{-172,752}          % 4
  916.       (1098,355){6,121}...{6,121}          % 5
  917.       (1104,476){-14,376}...{29,669}          % 6
  918.       (1117,1330){140,305}...{140,305}     % 7
  919.       (1257,1635)--                    % 8
  920.       (1528,1782){39,-17}...{39,-17}          % 9
  921.       (1567,1765){-311,-749}...          % 10
  922.       (1484,1419){-111,-848}...          % *11
  923.       (1456,917){0,-1}...{20,-147}          % 12
  924.       (1597,-21){-442,-559}...{-245,-220}     % 13
  925.       (963,-702){-542,-79}...          % 14
  926.       (571,-656){-835,277}...{-212,149}     % *15
  927.       (128,-425){-108,-72}...{-108,-72}     % 16
  928.       (20,-497){-71,48}...{-71,48}          % 17
  929.       (-51,-449)--cycle);               % 18
  930.  
  931. endchar(0);
  932.  
  933. "fblh";
  934.  
  935. charbegin( "h",1730h#, ascender*v#, descender*v#);
  936.  
  937. n := 7;
  938. t1 := 3.387;
  939. t2 := 5;
  940. t3 := 6;
  941. t4 := 8;
  942. t5 := 9;
  943. t6 := 10;
  944. t7 := 13;
  945.  
  946. adj_fill.A(7)                         % fixed x points
  947.      ()                         % fixed y points
  948.      ((2,1), (3,1), (5,2), (6,3))          % tied points
  949.      ((1,4))                         % verticals
  950.      ()                         % horizontals
  951.      ((817,2603){-134,-83}...{-420,-302}     % 0
  952.       (330,2268){-75,281}...{-75,281}     % 1
  953.       (255,2549){-59,-34}...{-59,-34}     % 2
  954.       (196,2515){33,-454}...{-38,-637}     % 3
  955.       (177,290){219,-266}...{180,-332}     % 4
  956.       (390,-30)--                    % 5
  957.       (390,-30){341,345}...{209,141}          % 6
  958.       (753,282){-227,298}...{-191,326}     % 7
  959.       (582,534){-57,641}...{26,347}          % 8
  960.       (584,1345){0,109}...{0,109}          % 9
  961.       (584,1454){0,1}...               % 10
  962.       (592,1936){0,1}...               % 11
  963.       (765,2470){1,1}...{188,87}          % 12
  964.       (883,2549)--cycle);               % 13
  965.  
  966. n := 5;
  967. t1 := 0;
  968. t2 := 2.902;
  969. t3 := 6;
  970. t4 := 9.461;
  971. t5 := 12;
  972.  
  973. adj_fill.B(3)                         % fixed x points
  974.      ()                         % fixed y points
  975.      ((1,2), (5,3))                    % tied points
  976.      ((2,4))                         % verticals
  977.      ()                         % horizontals
  978.      ((584,1345){196,108}...{196,108}     % 0
  979.       (780,1453){166,-41}...{356,-222}     % 1
  980.       (1098,1306){24,-308}...          % 2
  981.       (1134,420){-19,-1467}...          % *3
  982.       (1079,-161){-341,-1451}...          % 4
  983.       (976,-416){-1,-1}...{-437,-237}     % 5
  984.       (721,-629)--                    % 6
  985.       (837,-707){457,473}...{222,303}     % 7
  986.       (1417,-56){103,560}...               % 8
  987.       (1481,615){64,1633}...{-17,579}     % *9
  988.       (1481,1577){-351,148}...{-310,187}     % 10
  989.       (1034,1804){-449,-380}...{-263,-174}     % 11
  990.       (584,1454)--cycle);               % 12
  991.  
  992. endchar(0);
  993.  
  994. "fbli";
  995.  
  996. charbegin( "i",839h#, dotheight*v#, baseline );
  997.  
  998. n := 8;
  999. t1 := 2;
  1000. %t2 := 5;
  1001. t2 := 4.4; % DEK
  1002. t3 := 6;
  1003. t4 := 7;
  1004. t5 := 9;
  1005. t6 := 10;
  1006. t7 := 12;
  1007. t8 := 13;
  1008.  
  1009. adj_fill.A(4, 8)                    % fixed x points
  1010.      (1, 7)                         % fixed y points
  1011.      ()                         % tied points
  1012.      ((2,6))                         % verticals
  1013.      ((3,5))                         % horizontals
  1014.      ((910,447){-165,-73}...               % 0
  1015.       (745,374){-165,-73}...               % 1
  1016.       (717,363){-1,0}...               % 2
  1017.       (620,465){-299,474}...               % 3
  1018.       (582,571){-14,350}...{36,737}          % 4
  1019.       (590,1622){-130,102}...{-254,227}     % 5
  1020.       (333,1828){-179,-171}...{-423,-325}     % 6
  1021.       (-94,1474)--                    % 7
  1022.       (-36,1430){121,63}...{121,63}          % 8
  1023.       (85,1493){120,-79}...{120,-79}          % 9
  1024.       (205,1414){43,-763}...{-46,-448}     % 10
  1025.       (187,268){383,-472}...{99,-195}     % 11
  1026.       (417,-37){432,384}...{167,120}          % 12
  1027.       (926,383)--cycle);               % 13
  1028.  
  1029. n := 4;
  1030. t1 := 0;
  1031. t2 := 2;
  1032. t3 := 3;
  1033. t4 := 5;
  1034.  
  1035. adj_fill.B()                         % fixed x points
  1036.      ()                         % fixed y points
  1037.      ((1,2), (2,1), (3,1), (4,2))          % tied points
  1038.      ()                         % verticals
  1039.      ()                         % horizontals
  1040.      ((408,2057){-240,193}...{-374,417}     % 0
  1041.       (128,2329){286,271}...{286,271}     % 1
  1042.       (414,2600)--                    % 2
  1043.       (414,2600){395,-516}...{210,-187}     % 3
  1044.       (660,2334){-252,-277}...{-252,-277}     % 4
  1045.       (408,2057)--cycle);               % 5
  1046.  
  1047. endchar(0);
  1048.  
  1049. "fblj";
  1050.  
  1051. charbegin( "j",840h#, dotheight*v#, baseline );
  1052.  
  1053. n := 4;
  1054. t1 := 2;
  1055. t2 := 4;
  1056. t3 := 9;
  1057. t4 := 12;
  1058.  
  1059. adj_fill.A(2, 4)                    % fixed x points
  1060.      ()                         % fixed y points
  1061.      ()                         % tied points
  1062.      ((1,3))                         % verticals
  1063.      ()                         % horizontals
  1064.      ((-38,-694){301,295}...{409,477}     % 0
  1065.       (567,-49){74,437}...{-30,668}          % 1
  1066.       (630,1634){-229,166}...{-432,371}     % 2
  1067.       (349,1831){-422,-376}...{-422,-376}     % 3
  1068.       (-73,1455)--                    % 4
  1069.       (5,1403){118,64}...               % 5
  1070.       (123,1467){1,0}...               % 6
  1071.       (220,1420){1,-1}...               % 7
  1072.       (271,1270){59,-558}...               % *8
  1073.       (279,862){0,-1}...               % 9
  1074.       (263,-6){-30,-481}...               % 10
  1075.       (137,-377){-441,-566}...{-409,-289}     % 11
  1076.       (-160,-639)--cycle);               % 12
  1077.  
  1078. n := 4;
  1079. t1 := 0;
  1080. t2 := 2;
  1081. t3 := 3;
  1082. t4 := 5;
  1083.  
  1084. adj_fill.B()                         % fixed x points
  1085.      ()                         % fixed y points
  1086.      ((1,2), (2,1), (3,1), (4,2))          % tied points
  1087.      ()                         % verticals
  1088.      ()                         % horizontals
  1089.      ((384,2061){-296,268}...{-372,472}     % 0
  1090.       (132,2320){254,266}...{254,266}     % 1
  1091.       (386,2586)--                    % 2
  1092.       (386,2586){303,-357}...{186,-184}     % 3
  1093.       (637,2332){-253,-271}...{-253,-271}     % 4
  1094.       (384,2061)--cycle);               % 5
  1095.  
  1096. endchar(0);
  1097.  
  1098. "fblk";
  1099.  
  1100. charbegin( "k",1255h#, ascender*v#, baseline );
  1101.  
  1102. n := 17;
  1103. t1 := 0;
  1104. t2 := 1;
  1105. t3 := 2;
  1106. t4 := 3;
  1107. t5 := 4;
  1108. t6 := 5;
  1109. t7 := 6;
  1110. t8 := 7;
  1111. t9 := 8;
  1112. t10 := 10;
  1113. t11 := 12;
  1114. t12 := 13;
  1115. t13 := 16;
  1116. t14 := 17;
  1117. t15 := 18;
  1118. t16 := 19;
  1119. t17 := 21;
  1120.  
  1121. adj_fill.A(7, 11, 14)                    % fixed x points
  1122.      (2, 10, 12, 17)                    % fixed y points
  1123.      ((1,6), (2,1), (3,2), (4,3), (5,4), (6,5), (17,6))% tied points
  1124.      ((9,13), (3,16))               % verticals
  1125.      ((14,15), (7,8))               % horizontals
  1126.      ((293,2550){85,-281}...               % 0
  1127.       (378,2269){.8533,-1.783}...{243,-356}     % 1
  1128.       (621,1913){0,-571}...{0,-571}          % 2
  1129.       (621,1342){99,0}...{99,0}          % 3
  1130.       (720,1342){184,0}...               % 4
  1131.       (904,1342){2,0}...{279,0}          % 5
  1132.       (1183,1342){-120,-141}...{-120,-141}     % 6
  1133.       (1063,1201){-453,0}...{-453,0}          % 7
  1134.       (610,1201){0,-1}...{32,-661}          % 8
  1135.       (631,563){282,-252}...{282,-252}     % 9
  1136.       (913,311){313,152}...{313,152}          % 10
  1137.       (1226,463)--                    % 11
  1138.       (1254,394){-445,-372}...{-246,-164}     % 12
  1139.       (633,-33){-277,266}...{-342,241}     % 13
  1140.       (229,324){78,553}...               % 14
  1141.       (241,486){27,877}...{27,877}          % *15
  1142.       (256,1201){-252,0}...{-252,0}          % 16
  1143.       (4,1201){155,141}...{155,141}          % 17
  1144.       (159,1342){101,0}...{101,0}          % 18
  1145.       (260,1342){0,1}...               % 19
  1146.       (227,2521){-63,531}...{66,29}          % 20
  1147.       (293,2550)--cycle);               % 21
  1148.  
  1149. n := 2;
  1150. t1 := 1;
  1151. t2 := 2;
  1152.  
  1153. adj_fill.B()                         % fixed x points
  1154.      ()                         % fixed y points
  1155.      ((1,1), (2,2))                    % tied points
  1156.      ()                         % verticals
  1157.      ()                         % horizontals
  1158.      ((847,2586){-279,-149}...{-412,-372}     % 0
  1159.       (378,2269)--                    % 1
  1160.       (621,1913){0,1}...               % 2
  1161.       (642,2177){84,440}...               % *3
  1162.       (705,2353){150,231}...{353,198}     % 4
  1163.       (906,2539)--cycle);               % 5
  1164.  
  1165. n := 6;
  1166. t1 := 0;
  1167. t2 := 2;
  1168. t3 := 6;
  1169. t4 := 7;
  1170. t5 := 10;
  1171. t6 := 12;
  1172.  
  1173. adj_fill.C()                         % fixed x points
  1174.      ()                         % fixed y points
  1175.      ((1,4), (3,3), (4,2), (6,5))          % tied points
  1176.      ((2,5))                         % verticals
  1177.      ()                         % horizontals
  1178.      ((720,1342){1,0}...               % 0
  1179.       (870,1464){257,320}...               % 1
  1180.       (954,1671){-.008375,1.85}...{-323,416}     % 2
  1181.       (832,1964){-226,-158}...          % 3
  1182.       (696,1838){-279,-403}...          % 4
  1183.       (640,1658){-75,-496}...{0,-1}          % *5
  1184.       (621,1342)--                    % 6
  1185.       (621,1913){447,367}...{217,150}     % 7
  1186.       (1053,2223){354,-477}...          % 8
  1187.       (1193,2002){188,-382}...          % *9
  1188.       (1241,1841){0,-1}...               % 10
  1189.       (1144,1640){-240,-298}...{-240,-298}     % 11
  1190.       (904,1342)--cycle);               % 12
  1191.  
  1192. endchar(0);
  1193.  
  1194. "fbll";
  1195.  
  1196. charbegin( "l",856h#, ascender*v#, baseline );
  1197.  
  1198. n := 4;
  1199. t1 := 0;
  1200. %t2 := 3;
  1201. t2 := 3.3; % DEK
  1202. t3 := 7;
  1203. %t4 := 9;
  1204. t4 := 9.5; % DEK
  1205.  
  1206. adj_fill.A(1, 3)                    % fixed x points
  1207.      ()                         % fixed y points
  1208.      ()                         % tied points
  1209.      ((2,4))                         % verticals
  1210.      ()                         % horizontals
  1211.      ((861,2549){-282,-231}...          % 0
  1212.       (734,2435){-210,-249}...          % 1
  1213.       (638,2215){-133,-574}...          % *2
  1214.       (601,1861){-8,-514}...{63,-676}     % 3
  1215.       (625,474){82,-108}...{82,-108}          % 4
  1216.       (707,366){170,71}...{170,70}          % 5
  1217.       (877,437)--                    % 6
  1218.       (879,371){-466,-401}...{-466,-401}     % 7
  1219.       (413,-30){-199,293}...{-212,279}     % 8
  1220.       (214,263){62,661}...{-11,370}          % 9
  1221.       (222,2491){58,43}...{58,43}          % 10
  1222.       (280,2534){70,-274}...{70,-274}     % 11
  1223.       (350,2260){436,349}...{251,146}     % 12
  1224.       (824,2583)--cycle);               % 13
  1225.  
  1226. endchar(0);
  1227.  
  1228. "fblm";
  1229.  
  1230. charbegin( "m",2689h#, lcbody*v#, baseline );
  1231.  
  1232. n := 6;
  1233. t1 := 0;
  1234. t2 := 2;
  1235. t3 := 3;
  1236. t4 := 6;
  1237. t5 := 7;
  1238. t6 := 9;
  1239.  
  1240. adj_fill.A(1, 4, 5)                    % fixed x points
  1241.      ()                         % fixed y points
  1242.      ((2,2), (3,1))                    % tied points
  1243.      ((2,6))                         % verticals
  1244.      ()                         % horizontals
  1245.      ((800,254){-172,271}...{-172,271}     % 0
  1246.       (628,525){-19,312}...{18,701}          % 1
  1247.       (614,1352){-8,74}...               % 2
  1248.       (606,1426){-.04907,1.992}...{11,188}     % 3
  1249.       (617,1614){-122,82}...{-293,327}     % 4
  1250.       (375,1822){-426,-363}...{-426,-363}     % 5
  1251.       (-51,1459)--                    % 6
  1252.       (-9,1410){145,71}...{145,71}          % 7
  1253.       (136,1481){112,-99}...{112,-99}     % 8
  1254.       (248,1382){28,-814}...{-42,-359}     % 9
  1255.       (235,277){362,-487}...{143,-247}     % 10
  1256.       (443,-54)--cycle);               % 11
  1257.  
  1258. n := 5;
  1259. t1 := 2;
  1260. t2 := 3;
  1261. t3 := 6;
  1262. t4 := 7;
  1263. t5 := 9;
  1264.  
  1265. adj_fill.B()                         % fixed x points
  1266.      ()                         % fixed y points
  1267.      ((1,4), (2,3), (3,1), (4,2))          % tied points
  1268.      ((1,5))                         % verticals
  1269.      ()                         % horizontals
  1270.      ((1667,275){-177,268}...{-177,268}     % 0
  1271.       (1490,543){-7,319}...{48,820}          % 1
  1272.       (1495,1359){7,92}...               % 2
  1273.       (1502,1451){.1428,1.995}...{10,149}     % 3
  1274.       (1512,1600){-259,81}...{-499,281}     % 4
  1275.       (1076,1806){-150,-149}...{-450,-299}     % 5
  1276.       (606,1426)--                    % 6
  1277.       (614,1352){235,91}...{235,91}          % 7
  1278.       (849,1443){436,-130}...{150,-77}     % 8
  1279.       (1131,1342){23,-795}...{-75,-443}     % 9
  1280.       (1106,256){378,-569}...{187,-299}     % 10
  1281.       (1293,-43)--cycle);               % 11
  1282.  
  1283. n := 5;
  1284. %t1 := 5;
  1285. t1 := 4.5; % DEK
  1286. t2 := 7;
  1287. t3 := 8;
  1288. t4 := 10;
  1289. t5 := 13;
  1290.  
  1291. adj_fill.C(5)                         % fixed x points
  1292.      ()                         % fixed y points
  1293.      ((2,3), (3,4))                    % tied points
  1294.      ((1,4))                         % verticals
  1295.      ()                         % horizontals
  1296.      ((2709,436){-143,-73}...          % 0
  1297.       (2566,363){-143,-73}...          % 1
  1298.       (2529,346){-1,0}...               % 2
  1299.       (2481,379){-144,174}...{-235,354}     % *3
  1300.       (2385,520){-18,298}...{126,769}     % 4
  1301.       (2416,1608){-318,102}...{-413,211}     % 5
  1302.       (1964,1801){-462,-350}...{-462,-350}     % 6
  1303.       (1502,1451)--                    % 7
  1304.       (1495,1359){210,94}...{210,94}          % 8
  1305.       (1705,1453){383,-119}...{172,-89}     % 9
  1306.       (2005,1331){23,-808}...{-110,-408}     % 10
  1307.       (1971,279){339,-418}...{186,-306}     % 11
  1308.       (2205,-52){488,421}...{252,168}     % 12
  1309.       (2721,348)--cycle);               % 13
  1310.  
  1311. endchar(0);
  1312.  
  1313. "fbln";
  1314.  
  1315. charbegin( "n",1850h#, lcbody*v#, baseline );
  1316.  
  1317. n := 5;
  1318. t1 := 1;
  1319. t2 := 2;
  1320. t3 := 3;
  1321. t4 := 6;
  1322. %t5 := 9;
  1323. t5 := 9.5; % DEK
  1324.  
  1325. adj_fill.A(4)                         % fixed x points
  1326.      ()                         % fixed y points
  1327.      ((2,1), (3,2))                    % tied points
  1328.      ((1,5))                         % verticals
  1329.      ()                         % horizontals
  1330.      ((763,290){-193,248}...{-193,248}     % 0
  1331.       (570,538){-3,827}...               % 1
  1332.       (567,1365){.03083,1.999}...          % 2
  1333.       (570,1452){.05151,1.999}...{3,176}     % 3
  1334.       (573,1628){-179,93}...{-307,254}     % 4
  1335.       (318,1813){-409,-342}...{-409,-342}     % 5
  1336.       (-91,1471)--                    % 6
  1337.       (-34,1419){136,78}...{136,78}          % 7
  1338.       (102,1497){73,-81}...{73,-81}          % 8
  1339.       (175,1416){37,-736}...{-71,-272}     % 9
  1340.       (168,237){473,-448}...{148,-193}     % 10
  1341.       (410,-44)--cycle);               % 11
  1342.  
  1343. n := 5;
  1344. t1 := 3;
  1345. t2 := 5;
  1346. t3 := 6;
  1347. %t4 := 8;
  1348. t4 := 8.5; % DEK
  1349. t5 := 11;
  1350.  
  1351. adj_fill.B(5)                         % fixed x points
  1352.      ()                         % fixed y points
  1353.      ((2,2), (3,1))                    % tied points
  1354.      ((1,4))                         % verticals
  1355.      ()                         % horizontals
  1356.      ((1800,449){-178,-93}...{-178,-93}     % 0
  1357.       (1622,356){-148,191}...{-148,191}     % 1
  1358.       (1474,547){-11,364}...{72,817}          % 2
  1359.       (1504,1581){-348,158}...{-579,369}     % 3
  1360.       (1043,1814){-263,-236}...{-288,-181}     % 4
  1361.       (570,1452)--                    % 5
  1362.       (567,1365){226,98}...{226,98}          % 6
  1363.       (793,1463){376,-122}...{103,-59}     % 7
  1364.       (1102,1335){28,-783}...{-55,-343}     % 8
  1365.       (1076,311){266,-337}...{77,-128}     % 9
  1366.       (1327,-35){312,297}...{198,146}     % 10
  1367.       (1807,387)--cycle);               % 11
  1368.  
  1369. endchar(0);
  1370.  
  1371. "fblo";
  1372.  
  1373. charbegin( "o",1710h#, lcbody*v#, baseline );
  1374.  
  1375.  
  1376. n := 8;
  1377. t1 := 0;
  1378. t2 := 3;
  1379. t3 := 6;
  1380. t4 := 7;
  1381. t5 := 8;
  1382. %t6 := 9;
  1383. t6 := 10; % DEK
  1384. t7 := 12;
  1385. t8 := 13;
  1386.  
  1387. adj_fill.A(1, 5)                    % fixed x points
  1388.      ()                         % fixed y points
  1389.      ((1,1), (4,1), (5,2), (8,2))          % tied points
  1390.      ((3,6), (2,7))                    % verticals
  1391.      ()                         % horizontals
  1392.      ((695,-67){196,95}...{356,276}          % 0
  1393.       (1437,390){75,303}...               % 1
  1394.       (1503,878){75,1187}...{-18,736}     % *2
  1395.       (1512,1577){-184,56}...{-383,282}     % 3
  1396.       (955,1844){-154,-112}...{-450,-281}     % 4
  1397.       (303,1401){-34,-229}...{28,-609}     % 5
  1398.       (240,302){167,-164}...{520,-359}     % 6
  1399.       (695,-67)--                    % 7
  1400.       (1082,265){-427,123}...{-175,161}     % 8
  1401.       (628,546){-56,521}...               % 9
  1402.       (611,1125){72,962}...{122,236}          % *10
  1403.       (700,1508){476,-229}...{224,-35}     % 11
  1404.       (1157,1370){60,-746}...{-100,-448}     % 12
  1405.       (1082,265)--cycle);               % 13
  1406.  
  1407. endchar(0);
  1408.  
  1409. "fblp";
  1410.  
  1411. %charbegin( "p", 1653h# + leftp# + rightp#, theight*v#, descender*v#);
  1412. charbegin( "p", 1653h# + leftp# + rightp#, 
  1413.  1/3[lcbody,theight]*v#, descender*v#); % DEK
  1414.  
  1415. n := 1;
  1416. t1 := 6;
  1417.  
  1418. adj_fill.A()                         % fixed x points
  1419.      ()                         % fixed y points
  1420.      ((1,1))                         % tied points
  1421.      ()                         % verticals
  1422.      ()                         % horizontals
  1423.      ((-109,26){216,197}...{1,0}          % 0
  1424.       (229,178){-18,-866}...{-34,-535}     % 1
  1425.       (211,-688){54,-20}...{54,-20}          % 2
  1426.       (265,-708)--                    % 3
  1427.       (619,-536){-52,695}...{0,1}          % 4
  1428.       (590,143){-364,277}...{-364,277}     % 5
  1429.       (226,420){0,1}...{-246,-270}          % 6
  1430.       (-146,89)--cycle);               % 7
  1431.  
  1432. n := 9;
  1433. t1 := 2;
  1434. t2 := 3;
  1435. t3 := 7;
  1436. t4 := 10;
  1437. t5 := 11;
  1438. %t6 := 13;
  1439. t6 := 13.5; % DEK
  1440. t7 := 15;
  1441. t8 := 16;
  1442. t9 := 17;
  1443.  
  1444. adj_fill.B(4, 5)                    % fixed x points
  1445.      ()                         % fixed y points
  1446.      ((2,1), (4,2), (5,3), (8,3), (9,2))     % tied points
  1447.      ((3,6), (1,7))                    % verticals
  1448.      ()                         % horizontals
  1449.      ((401,2124){-153,-172}...{-259,-444}     % 0
  1450.       (64,1676){86,-391}...{247,-332}     % 1
  1451.       (226,1389){0,-969}...{0,-969}          % 2
  1452.       (226,420){364,-280}...{364,-280}     % 3
  1453.       (590,140){233,-32}...{263,-224}     % 4
  1454.       (918,-10){166,159}...{528,325}          % 5
  1455.       (1393,370){72,305}...               % 6
  1456.       (1481,1605){-26,727}...          % 7
  1457.       (1487,1620){-156,61}...{-458,279}     % 8
  1458.       (1040,1844){-450,-354}...{-450,-354}     % 9
  1459.       (590,1490)--                    % 10
  1460.       (590,1394){189,86}...{189,86}          % 11
  1461.       (779,1480){411,-132}...{130,-63}     % 12
  1462.       (1095,1352){65,-553}...{-24,-182}     % 13
  1463.       (1069,362){-414,232}...{-191,34}     % 14
  1464.       (590,542){0,852}...{0,852}          % 15
  1465.       (590,1394){0,96}...{0,96}          % 16
  1466.       (590,1490){0,152}...{0,152}          % 17
  1467.       (590,1642){-343,343}...          % 18
  1468.       (453,1810){-185,304}...          % *19
  1469.       (405,1946){0,1}...{148,202}          % 20
  1470.       (466,2101)--cycle);               % 21
  1471.  
  1472. endchar(leftp#);
  1473.  
  1474. "fblq";
  1475.  
  1476. charbegin( "q",1668h#, lcbody*v#, descender*v#);
  1477.  
  1478. n := 5;
  1479. t1 := 2;
  1480. t2 := 3;
  1481. t3 := 4;
  1482. t4 := 5;
  1483. t5 := 8;
  1484.  
  1485. adj_fill.A()                         % fixed x points
  1486.      ()                         % fixed y points
  1487.      ((1,4), (2,1), (3,2), (4,3))          % tied points
  1488.      ((1,5))                         % verticals
  1489.      ()                         % horizontals
  1490.      ((1095,-723){-59,36}...{-59,36}          % 0
  1491.       (1036,-687){44,406}...{-3,746}          % 1
  1492.       (1078,350){-8,118}...{-8,118}          % 2
  1493.       (1070,468){0,1}...{40,696}          % 3
  1494.       (1086,1386){173,310}...{173,310}     % 4
  1495.       (1259,1696)--                    % 5
  1496.       (1478,1856){37,-22}...{37,-22}          % 6
  1497.       (1515,1834){-177,-723}...          % 7
  1498.       (1421,212){0,-1}...{23,-399}          % 8
  1499.       (1449,-572)--cycle);               % 9
  1500.  
  1501. n := 7;
  1502. t1 := 0;
  1503. t2 := 3;
  1504. t3 := 4;
  1505. t4 := 5;
  1506. t5 := 6;
  1507. t6 := 7;
  1508. t7 := 11;
  1509.  
  1510. adj_fill.B()                         % fixed x points
  1511.      ()                         % fixed y points
  1512.      ((1,4), (4,3), (5,2), (7,1))          % tied points
  1513.      ((2,6))                         % verticals
  1514.      ((3,6))                         % horizontals
  1515.      ((1078,350){-588,-402}...{-588,-402}     % 0
  1516.       (490,-52){-307,383}...{-307,383}     % 1
  1517.       (183,331){-22,309}...{107,604}          % 2
  1518.       (256,1435){611,395}...{611,395}     % 3
  1519.       (867,1830){276,-134}...{334,-62}     % 4
  1520.       (1259,1696)--                    % 5
  1521.       (1086,1386){-312,35}...{-264,86}     % 6
  1522.       (627,1489){-243,-504}...          % 7
  1523.       (560,1171){-77,-882}...{8,-314}     % *8
  1524.       (550,607){309,-500}...{147,-141}     % 9
  1525.       (779,325){174,60}...{190,130}          % 10
  1526.       (1070,468)--cycle);               % 11
  1527.  
  1528. endchar(0);
  1529.  
  1530. "fblr";
  1531.  
  1532. charbegin( "r",1241h#, lcbody*v#, baseline );
  1533.  
  1534. n := 6;
  1535. t1 := 4;
  1536. t2 := 5;
  1537. t3 := 6;
  1538. t4 := 9;
  1539. %t5 := 12;
  1540. t5 := 13; % DEK
  1541. t6 := 16;
  1542.  
  1543. adj_fill.A(4, 6)                    % fixed x points
  1544.      ()                         % fixed y points
  1545.      ((2,1), (3,2))                    % tied points
  1546.      ((1,5))                         % verticals
  1547.      ()                         % horizontals
  1548.      ((1161,435){-278,-117}...{-278,-117}     % 0
  1549.       (883,318){-195,177}...               % 1
  1550.       (688,495){-157,186}...               % 2
  1551.       (638,603){-14,297}...               % 3
  1552.       (643,1261){43,439}...{334,346}          % 4
  1553.       (700,1439){-56,31}...               % 5
  1554.       (644,1470){-.9199,1.483}...{-5,111}     % 6
  1555.       (639,1581){-266,228}...{-266,228}     % 7
  1556.       (373,1809){-435,-335}...{-435,-335}     % 8
  1557.       (-62,1474)--                    % 9
  1558.       (-27,1420){136,46}...{136,46}          % 10
  1559.       (109,1466){242,-176}...{97,-117}     % 11
  1560.       (256,1319){52,-653}...               % 12
  1561.       (275,752){-26,-978}...{-82,-353}     % *13
  1562.       (230,341){322,-281}...{133,-153}     % 14
  1563.       (620,-35){544,391}...{544,391}          % 15
  1564.       (1164,356)--cycle);               % 16
  1565.  
  1566. n := 2;
  1567. t1 := 8;
  1568. t2 := 9;
  1569.  
  1570. adj_fill.B()                         % fixed x points
  1571.      ()                         % fixed y points
  1572.      ((1,1), (2,2))                    % tied points
  1573.      ()                         % verticals
  1574.      ()                         % horizontals
  1575.      ((977,1801){236,-422}...          % 0
  1576.       (1139,1560){1,-1}...               % 1
  1577.       (1209,1524){1,0}...{112,36}          % 2
  1578.       (1321,1560)--                    % 3
  1579.       (1321,1518){-287,-315}...          % 4
  1580.       (1000,1245){-189,-143}...          % 5
  1581.       (990,1231){-271,113}...          % 6
  1582.       (816,1328){-116,111}...{-116,111}     % 7
  1583.       (700,1439){-56,31}...{-56,31}          % 8
  1584.       (644,1470)--cycle);               % 9
  1585.  
  1586. endchar(0);
  1587.  
  1588. "fbls";
  1589.  
  1590. charbegin( "s",1439h#, lcbody*v#, baseline );
  1591.  
  1592. n := 14;
  1593. t1 := 0;
  1594. t2 := 2;
  1595. t3 := 3;
  1596. t4 := 4;
  1597. t5 := 5;
  1598. t6 := 9;
  1599. t7 := 13;
  1600. t8 := 15;
  1601. t9 := 16;
  1602. %t10 := 18;
  1603. t10 := 18.5; % DEK
  1604. t11 := 19;
  1605. t12 := 20;
  1606. %t13 := 21;
  1607. t13 := 21.5; % DEK
  1608. t14 := 25;
  1609.  
  1610. adj_fill.A(1, 8)                    % fixed x points
  1611.      (3, 10, 11)                    % fixed y points
  1612.      ()                         % tied points
  1613.      ((6,10), (4,13))               % verticals
  1614.      ((7,9), (5,12), (2,14))               % horizontals
  1615.      ((-175,155){394,369}...{394,369}     % 0
  1616.       (219,524){398,85}...               % 1
  1617.       (382,545){1,0}...{455,-390}          % 2
  1618.       (898,208){28,205}...{-43,522}          % 3
  1619.       (901,782){-131,157}...               % 4
  1620.       (721,894){-1,0}...               % 5
  1621.       (585,851){-435,-215}...{-358,-214}     % *6
  1622.       (286,679){-121,117}...               % 7
  1623.       (158,867){-128,226}...               % 8
  1624.       (143,941){-1,354}...{0,1}          % 9
  1625.       (143,1456){585,380}...{585,380}     % 10
  1626.       (728,1836){208,-142}...          % 11
  1627.       (936,1694){208,-142}...          % 12
  1628.       (1114,1643){1,0}...{334,254}          % 13
  1629.       (1389,1777)--                    % 14
  1630.       (1410,1694){-448,-367}...{-448,-367}     % 15
  1631.       (962,1327){-1,0}...               % 16
  1632.       (776,1390){-443,243}...{-311,257}     % *17
  1633.       (519,1570){-127,-624}...{110,-205}     % 18
  1634.       (570,959){499,154}...{336,178}          % 19
  1635.       (1063,1178){404,-213}...{143,-122}     % 20
  1636.       (1258,1046){72,-542}...{-87,-296}     % 21
  1637.       (1226,223){-639,-264}...{-211,-124}     % 22
  1638.       (611,-69){-1,1}...               % 23
  1639.       (352,137){-482,279}...               % *24
  1640.       (129,210){-1,0}...{-388,-292}          % 25
  1641.       (-142,96)--cycle);               % 26
  1642.  
  1643. endchar(0);
  1644.  
  1645. "fblt";
  1646.  
  1647. %charbegin( "t",1033h#, ascender*v#, baseline );
  1648. charbegin( "t",1033h#, theight*v#, baseline ); % DEK
  1649.  
  1650. n := 14;
  1651. t1 := 0;
  1652. t2 := 1;
  1653. t3 := 3;
  1654. t4 := 4;
  1655. t5 := 4.485;
  1656. t6 := 6;
  1657. t7 := 7;
  1658. t8 := 9;
  1659. t9 := 12;
  1660. t10 := 13;
  1661. t11 := 15;
  1662. t12 := 16;
  1663. t13 := 19;
  1664. t14 := 21;
  1665.  
  1666. adj_fill.A(1, 4, 5, 10, 14)               % fixed x points
  1667.      (2, 8, 13)                    % fixed y points
  1668.      ((1,1), (14,1))                    % tied points
  1669.      ((3,12), (7,9))                    % verticals
  1670.      ((10,11), (4,6))               % horizontals
  1671.      ((1177,372){-558,-413}...{-558,-413}     % 0
  1672.       (619,-41){-100,117}...{-348,273}     % 1
  1673.       (287,283){20,321}...{0,1}          % 2
  1674.       (304,1390){-269,0}...{-269,0}          % 3
  1675.       (35,1390){3,32}...               % 4
  1676.       (38,1422){.8178,1.685}...{144,137}     % 5
  1677.       (182,1559){122,0}...{122,0}          % 6
  1678.       (304,1559){0,547}...{0,547}          % 7
  1679.       (304,2106)--                    % 8
  1680.       (794,2459){70,-30}...{70,-30}          % 9
  1681.       (864,2429){-149,-157}...{-149,-157}     % 10
  1682.       (715,2272){-78,-653}...{-34,-713}     % 11
  1683.       (681,1559){326,0}...{326,0}          % 12
  1684.       (1007,1559){-1,-24}...{-1,-24}          % 13
  1685.       (1006,1535){-156,-143}...{-156,-143}     % 14
  1686.       (850,1392){-183,0}...{-183,0}          % 15
  1687.       (667,1392){0,-1}...               % 16
  1688.       (685,562){20,-315}...               % 17
  1689.       (708,492){232,-314}...{250,-158}     % 18
  1690.       (928,314){236,130}...{236,130}          % 19
  1691.       (1164,444){13,-72}...{13,-72}          % 20
  1692.       (1177,372)--cycle);               % 21
  1693.  
  1694. endchar(0);
  1695.  
  1696. "fblu";
  1697.  
  1698. charbegin( "u",1646h#, lcbody*v#, baseline );
  1699.  
  1700. n := 4;
  1701. t1 := 0;
  1702. t2 := 2;
  1703. t3 := 3;
  1704. t4 := 7;
  1705.  
  1706. adj_fill.A(1)                         % fixed x points
  1707.      ()                         % fixed y points
  1708.      ((2,2), (3,1))                    % tied points
  1709.      ((3,4))                         % verticals
  1710.      ()                         % horizontals
  1711.      ((1793,385){-498,-444}...{-498,-444}     % 0
  1712.       (1295,-59){-190,365}...{-190,365}     % 1
  1713.       (1105,306){-33,85}...{-33,85}          % 2
  1714.       (1072,391){10,334}...{-21,804}          % 3
  1715.       (1061,1628)--                    % 4
  1716.       (1440,1791){45,-32}...{45,-32}          % 5
  1717.       (1485,1759){-107,-809}...{0,-1}     % 6
  1718.       (1430,644){127,-283}...          % 7
  1719.       (1557,361){171,-281}...{30,-7}          % 8
  1720.       (1587,354){188,81}...{188,81}          % 9
  1721.       (1775,435)--cycle);               % 10
  1722.  
  1723. n := 9;
  1724. t1 := 0;
  1725. t2 := 1;
  1726. t3 := 4;
  1727. t4 := 6;
  1728. t5 := 8;
  1729. t6 := 9;
  1730. t7 := 11;
  1731. t8 := 14;
  1732. t9 := 15;
  1733.  
  1734. adj_fill.B(5)                         % fixed x points
  1735.      (4, 6)                         % fixed y points
  1736.      ((1,2), (9,1))                    % tied points
  1737.      ((3,7))                         % verticals
  1738.      ((2,8))                         % horizontals
  1739.      ((1105,306){-214,-102}...{-446,-349}     % 0
  1740.       (563,-53){-221,191}...{-485,215}     % 1
  1741.       (110,214){250,314}...               % 2
  1742.       (231,487){163,676}...               % *3
  1743.       (273,890){0,1}...{-132,659}          % 4
  1744.       (212,1377){-169,157}...{-131,102}     % 5
  1745.       (81,1479){-109,-68}...{-109,-68}     % 6
  1746.       (-28,1411)--                    % 7
  1747.       (-72,1461){420,348}...{420,348}     % 8
  1748.       (348,1809){434,-454}...{125,-111}     % 9
  1749.       (592,1591){23,-738}...               % 10
  1750.       (604,1019){0,-1}...               % 11
  1751.       (576,676){-108,-575}...{-214,-346}     % *12
  1752.       (496,444){415,-101}...{239,-118}     % 13
  1753.       (864,288){208,103}...{208,103}          % 14
  1754.       (1072,391)--cycle);               % 15
  1755.  
  1756. endchar(0);
  1757.  
  1758. "fblv";
  1759.  
  1760. %charbegin( "v",1695h#, theight*v#, baseline );
  1761. charbegin( "v",1695h#, 1/3[lcbody,theight]*v#, baseline ); % DEK
  1762.  
  1763. n := 7;
  1764. t1 := 3;
  1765. t2 := 8;
  1766. t3 := 10;
  1767. t4 := 11;
  1768. t5 := 13;
  1769. t6 := 20;
  1770. t7 := 21;
  1771.  
  1772. adj_fill.A()                         % fixed x points
  1773.      ()                         % fixed y points
  1774.      ((3,1), (4,2), (6,2), (7,1))          % tied points
  1775.      ((1,4), (2,5))                    % verticals
  1776.      ()                         % horizontals
  1777.      ((393,2081){-273,-287}...          % 0
  1778.       (75,1620){0,-1}...{474,-614}          % 1
  1779.       (207,1375){18,-341}...               % 2
  1780.       (226,845){0,-1}...{-93,-464}          % 3
  1781.       (198,303){140,-99}...{270,-323}     % 4
  1782.       (576,-42){795,398}...{795,398}          % 5
  1783.       (1371,356){190,405}...               % 6
  1784.       (1473,829){110,1240}...{-33,733}     % *7
  1785.       (1481,1596){-437,227}...{-437,227}     % 8
  1786.       (1044,1823){-457,-331}...{-457,-331}     % 9
  1787.       (587,1492)--                    % 10
  1788.       (587,1397){215,104}...{215,104}     % 11
  1789.       (802,1501){353,-139}...{84,-51}     % 12
  1790.       (1111,1352){39,-698}...          % 13
  1791.       (1029,307){-157,-524}...          % 14
  1792.       (986,269){-1.735,-.4939}...          % 15
  1793.       (945,276){-400,228}...               % 16
  1794.       (643,482){-173,184}...               % 17
  1795.       (593,553){-.6624,1.814}...          % 18
  1796.       (587,622){0,775}...{0,775}          % 19
  1797.       (587,1397){0,95}...{0,95}          % 20
  1798.       (587,1492){6,108}...{6,108}          % 21
  1799.       (593,1600){-660,777}...          % 22
  1800.       (397,1910){0,1}...{243,351}          % 23
  1801.       (454,2067)--cycle);               % 24
  1802.  
  1803. endchar(0);
  1804.  
  1805. "fblw";
  1806.  
  1807. %charbegin( "w",2677h#, theight*v#, baseline );
  1808. charbegin( "w",2677h#, 1/3[lcbody,theight]*v#, baseline ); % DEK
  1809.  
  1810. n := 3;
  1811. t1 := 3;
  1812. t2 := 11;
  1813. t3 := 12;
  1814.  
  1815. adj_fill.A()                         % fixed x points
  1816.      ()                         % fixed y points
  1817.      ((2,1), (3,2))                    % tied points
  1818.      ((1,3))                         % verticals
  1819.      ()                         % horizontals
  1820.      ((438,-50){-173,261}...{-332,260}     % 0
  1821.       (181,277){106,311}...               % 1
  1822.       (238,691){41,1101}...{-50,783}          % *2
  1823.       (222,1378){-114,144}...          % 3
  1824.       (108,1522){-114,144}...          % 4
  1825.       (72,1645){0,1}...{84,446}          % 5
  1826.       (84,1684){142,204}...{387,401}          % 6
  1827.       (399,2093)--                    % 7
  1828.       (450,2083){-237,-388}...          % 8
  1829.       (403,1909){0,-1}...{219,-229}          % 9
  1830.       (615,1609){-1,-137}...{-1,-137}     % 10
  1831.       (614,1472){-5,-99}...{-5,-99}          % 11
  1832.       (609,1373){-38,-718}...{19,-306}     % 12
  1833.       (620,479){160,-234}...{160,-234}     % 13
  1834.       (780,245)--cycle);               % 14
  1835.  
  1836. n := 9;
  1837. t1 := 0;
  1838. t2 := 2;
  1839. t3 := 9;
  1840. t4 := 10;
  1841. t5 := 13;
  1842. t6 := 14;
  1843. t7 := 16;
  1844. t8 := 22;
  1845. t9 := 24;
  1846.  
  1847. adj_fill.B(9)                         % fixed x points
  1848.      ()                         % fixed y points
  1849.      ((1,3), (3,3), (4,4), (5,1), (6,2), (9,4))% tied points
  1850.      ((3,7), (2,8))                    % verticals
  1851.      ()                         % horizontals
  1852.      ((1512,1335){241,117}...{241,117}     % 0
  1853.       (1753,1452){172,-62}...{358,-212}     % 1
  1854.       (2087,1303){0,-216}...               % 2
  1855.       (2061,732){-105,-953}...          % *3
  1856.       (1982,350){-163,-445}...          % 4
  1857.       (1951,296){-1.468,-.6247}...          % 5
  1858.       (1915,305){-207,99}...               % 6
  1859.       (1555,507){-331,251}...          % 7
  1860.       (1499,626){-20,344}...{63,814}          % 8
  1861.       (1512,1335){-10,94}...{-10,94}          % 9
  1862.       (1502,1429){0,126}...{0,126}          % 10
  1863.       (1502,1555){-205,91}...{-424,292}     % 11
  1864.       (1045,1804){-182,-146}...{-378,-260}     % 12
  1865.       (614,1472)--                    % 13
  1866.       (609,1373){212,81}...{212,81}          % 14
  1867.       (821,1454){419,-171}...{291,-239}     % 15
  1868.       (1123,1290){9,-782}...{-74,-323}     % 16
  1869.       (1089,248){366,-99}...               % 17
  1870.       (1335,141){557,-309}...{253,-185}     % *18
  1871.       (1646,-61){580,346}...{237,105}     % 19
  1872.       (2292,267){258,489}...               % 20
  1873.       (2410,742){163,1308}...{3,345}          % *21
  1874.       (2455,1575){-356,154}...{-265,164}     % 22
  1875.       (2028,1798){-526,-369}...{-526,-369}     % 23
  1876.       (1502,1429)--cycle);               % 24
  1877.  
  1878. endchar(0);
  1879.  
  1880. "fblx";
  1881.  
  1882. charbegin( "x",1239h#, lcbody*v#, descender*v#);
  1883.  
  1884. n := 2;
  1885. t1 := 0;
  1886. t2 := 10;
  1887.  
  1888. adj_fill.A()                         % fixed x points
  1889.      ()                         % fixed y points
  1890.      ((1,2), (2,1))                    % tied points
  1891.      ()                         % verticals
  1892.      ()                         % horizontals
  1893.      ((300,320){-136,-140}...{-245,-399}     % 0
  1894.       (-59,-166){-80,-320}...          % 1
  1895.       (-52,-374){139,-281}...          % 2
  1896.       (92,-520){407,-263}...{490,-152}     % *3
  1897.       (355,-637)--                    % 4
  1898.       (645,-432){-3,33}...{-3,33}          % 5
  1899.       (642,-399){-436,79}...               % 6
  1900.       (214,-213){-198,210}...          % 7
  1901.       (160,-81){0,1}...               % 8
  1902.       (235,123){209,220}...{219,43}          % 9
  1903.       (379,224)--cycle);               % 10
  1904.  
  1905. n := 8;
  1906. t1 := 5;
  1907. t2 := 6;
  1908. t3 := 7;
  1909. t4 := 10;
  1910. t5 := 16;
  1911. t6 := 17;
  1912. t7 := 18;
  1913. t8 := 20;
  1914.  
  1915. adj_fill.B(4, 8)                    % fixed x points
  1916.      ()                         % fixed y points
  1917.      ((2,3), (3,4), (6,2), (7,1))          % tied points
  1918.      ((1,5))                         % verticals
  1919.      ()                         % horizontals
  1920.      ((1221,431){-275,-121}...{-275,-121}     % 0
  1921.       (946,310){-224,183}...               % 1
  1922.       (722,493){-257,231}...{-16,34}          % 2
  1923.       (706,527){-13,21}...               % 3
  1924.       (693,548){-31,371}...               % 4
  1925.       (683,1024){0,1}...{375,298}          % 5
  1926.       (756,1407){-64,49}...{-64,49}          % 6
  1927.       (692,1456){0,133}...{0,133}          % 7
  1928.       (692,1589){-287,215}...{-287,215}     % 8
  1929.       (405,1804){-120,-71}...{-408,-346}     % 9
  1930.       (-39,1456)--                    % 10
  1931.       (9,1412){124,59}...{124,59}          % 11
  1932.       (133,1471){143,-91}...               % 12
  1933.       (276,1380){211,-164}...{23,-40}     % 13
  1934.       (299,1340){7,-25}...               % 14
  1935.       (306,1315){33,-529}...               % 15
  1936.       (319,830){0,-1}...{-55,-458}          % 16
  1937.       (300,320){79,-96}...{79,-96}          % 17
  1938.       (379,224){286,-273}...{286,-273}     % 18
  1939.       (665,-49){561,412}...{561,412}          % 19
  1940.       (1226,363)--cycle);               % 20
  1941.  
  1942. n := 2;
  1943. t1 := 0;
  1944. t2 := 6;
  1945.  
  1946. adj_fill.C()                         % fixed x points
  1947.      ()                         % fixed y points
  1948.      ((1,3), (2,4))                    % tied points
  1949.      ()                         % verticals
  1950.      ()                         % horizontals
  1951.      ((756,1407){192,6}...               % 0
  1952.       (788,1399){87,-90}...               % 1
  1953.       (974,1261){164,-117}...{118,-21}     % 2
  1954.       (1064,1224)--                    % 3
  1955.       (1283,1466){-336,377}...{-223,345}     % 4
  1956.       (1045,1790){-353,-334}...{-353,-334}     % 5
  1957.       (692,1456)--cycle);               % 6
  1958.  
  1959. endchar(0);
  1960.  
  1961. "fbly";
  1962.  
  1963. charbegin( "y",1647h#, lcbody*v#, descender*v#);
  1964.  
  1965. n := 3;
  1966. t1 := 4;
  1967. t2 := 5;
  1968. t3 := 11;
  1969.  
  1970. adj_fill.A()                         % fixed x points
  1971.      ()                         % fixed y points
  1972.      ((1,2), (2,1))                    % tied points
  1973.      ((2,3))                         % verticals
  1974.      ()                         % horizontals
  1975.      ((466,2107){-292,-382}...          % 0
  1976.       (413,1936){.2672,-1.781}...          % 1
  1977.       (476,1800){212,-311}...{1,-1}          % *2
  1978.       (625,1625){0,-141}...{0,-141}          % 3
  1979.       (625,1484){-6,-106}...{-6,-106}     % 4
  1980.       (619,1378){0,-1}...               % 5
  1981.       (619,583){0,-1}...               % 6
  1982.       (643,459){10,-14}...{429,-525}          % 7
  1983.       (780,257)--                    % 8
  1984.       (452,-44){-341,476}...{-236,252}     % 9
  1985.       (184,283){154,549}...               % 10
  1986.       (243,1372){0,1}...{-67,270}          % 11
  1987.       (230,1418){-384,437}...          % 12
  1988.       (88,1660){0,1}...               % 13
  1989.       (149,1802){323,489}...{296,341}     % 14
  1990.       (410,2122)--cycle);               % 15
  1991.  
  1992. n := 5;
  1993. %t1 := 4;
  1994. t1 := 3; % DEK
  1995. t2 := 6;
  1996. t3 := 7;
  1997. %t4 := 9;
  1998. t4 := 9.5; % DEK
  1999. t5 := 13;
  2000.  
  2001. adj_fill.B(5)                         % fixed x points
  2002.      ()                         % fixed y points
  2003.      ((2,2), (3,1))                    % tied points
  2004.      ((1,4))                         % verticals
  2005.      ()                         % horizontals
  2006.      ((680,-760){244,150}...               % 0
  2007.       (966,-535){619,577}...               % *1
  2008.       (1299,-183){408,476}...          % 2
  2009.       (1476,204){0,1}...{0,1}          % 3
  2010.       (1505,1584){-416,197}...{-400,264}     % 4
  2011.       (1063,1827){-438,-343}...{-438,-343}     % 5
  2012.       (625,1484)--                    % 6
  2013.       (619,1378){183,90}...{183,90}          % 7
  2014.       (802,1468){468,-141}...{266,-191}     % 8
  2015.       (1105,1312){53,-782}...          % 9
  2016.       (1073,-14){-77,-489}...          % 10
  2017.       (1024,-234){-128,-442}...          % 11
  2018.       (872,-492){-254,-245}...{-355,-200}     % 12
  2019.       (565,-676)--cycle);               % 13
  2020.  
  2021. endchar(0);
  2022.  
  2023. "fblz";
  2024.  
  2025. charbegin( "z",1246h#, lcbody*v#, descender*v#);
  2026.  
  2027. n := 18;
  2028. t1 := 0;
  2029. t2 := 1;
  2030. t3 := 3;
  2031. t4 := 4;
  2032. t5 := 4.562;
  2033. t6 := 6;
  2034. t7 := 8;
  2035. t8 := 10;
  2036. t9 := 11;
  2037. t10 := 14;
  2038. t11 := 16;
  2039. t12 := 18;
  2040. t13 := 20;
  2041. t14 := 21;
  2042. t15 := 22;
  2043. t16 := 24;
  2044. t17 := 26;
  2045. t18 := 27;
  2046.  
  2047. adj_fill.A(2, 5, 6, 9, 12, 15, 17)          % fixed x points
  2048.      (3, 16)                         % fixed y points
  2049.      ((1,1), (13,1), (14,2), (18,2))          % tied points
  2050.      ((7,11), (4,16))               % verticals
  2051.      ((8,10))                    % horizontals
  2052.      ((658,612){-238,-216}...{-271,-458}     % 0
  2053.       (-126,-365){164,-439}...          % 1
  2054.       (15,-587){1,-1}...{1,0}          % 2
  2055.       (497,-734){487,413}...{487,413}     % 3
  2056.       (984,-321){129,398}...{-104,523}     % 4
  2057.       (1031,853){-194,123}...{-518,186}     % 5
  2058.       (660,1037){201,219}...               % 6
  2059.       (861,1256){201,219}...               % 7
  2060.       (961,1411){0,1}...               % 8
  2061.       (832,1657){-1,1}...{-383,154}          % 9
  2062.       (597,1806){-202,-147}...{-399,-418}     % 10
  2063.       (55,1340)--                    % 11
  2064.       (104,1285){230,197}...               % 12
  2065.       (258,1396){269,149}...               % *13
  2066.       (373,1434){1,0}...               % 14
  2067.       (556,1351){1,-1}...               % 15
  2068.       (637,1191){0,-1}...               % 16
  2069.       (527,1018){-288,-241}...{-288,-241}     % 17
  2070.       (239,777){2,-31}...{2,-31}          % 18
  2071.       (241,746){403,-64}...{128,-105}     % 19
  2072.       (658,612){33,-109}...{33,-109}          % 20
  2073.       (691,503){44,-526}...               % 21
  2074.       (711,-30){-22,-881}...               % *22
  2075.       (669,-378){-155,-531}...{-20,-56}     % 23
  2076.       (649,-434){-625,-28}...          % 24
  2077.       (310,-291){-219,200}...          % 25
  2078.       (219,-112){0,1}...{173,167}          % 26
  2079.       (691,503)--cycle);               % 27
  2080.  
  2081. endchar(0);
  2082.  
  2083. % UPPER CASE
  2084.  
  2085. "FBUA";
  2086.  
  2087. charbegin( "A", 2457h#, capheight*v#, baseline*v#);
  2088.  
  2089. n := 5;
  2090. t1 := 0;
  2091. t2 := 3;
  2092. t3 := 4;
  2093. t4 := 5;
  2094. t5 := 8;
  2095.  
  2096. adj_fill.A(1, 3)                    % fixed x points
  2097.      ()                         % fixed y points
  2098.      ((2,2), (3,1))                    % tied points
  2099.      ((4,5))                         % verticals
  2100.      ()                         % horizontals
  2101.      ((2494,344){-192,-148}...{-457,-327}     % 0
  2102.       (1995,-48){-38,10}...{-38,10}          % 1
  2103.       (1957,-38){-229,558}...{-229,558}     % 2
  2104.       (1728,520){-14,105}...{-14,105}     % 3
  2105.       (1714,625){15,1587}...{0,1}          % 4
  2106.       (1729,2212){506,362}...{506,362}     % 5
  2107.       (2235,2574)--                    % 6
  2108.       (2306,2554){-160,-190}...{-160,-190}     % 7
  2109.       (2146,2364){0,-1}...{22,-343}          % 8
  2110.       (2131,724){181,-377}...{181,-377}     % 9
  2111.       (2312,347){165,78}...{165,78}          % 10
  2112.       (2477,425)--cycle);               % 11
  2113.  
  2114. n := 7;
  2115. t1 := 0;
  2116. t2 := 1;
  2117. t3 := 3;
  2118. t4 := 4;
  2119. t5 := 5;
  2120. t6 := 7;
  2121. t7 := 8;
  2122.  
  2123. adj_fill.B()                         % fixed x points
  2124.      (2, 4, 6)                    % fixed y points
  2125.      ((1,1), (3,3), (4,4), (7,2))          % tied points
  2126.      ()                         % verticals
  2127.      ((3,5))                         % horizontals
  2128.      ((1714,625){-212,-158}...{-509,-261}     % 0
  2129.       (1270,351){-392,429}...          % 1
  2130.       (1013,572){-482,299}...{-574,-3}     % *2
  2131.       (788,650)--                    % 3
  2132.       (89,178){637,352}...               % 4
  2133.       (499,346){1,0}...               % 5
  2134.       (718,241){502,-400}...{435,-548}     % *6
  2135.       (1001,-54){727,574}...{727,574}     % 7
  2136.       (1728,520)--cycle);               % 8
  2137.  
  2138. n := 12;
  2139. t1 := 0;
  2140. t2 := 1;
  2141. t3 := 3;
  2142. t4 := 5;
  2143. t5 := 7;
  2144. t6 := 10;
  2145. t7 := 12;
  2146. t8 := 13;
  2147. t9 := 15;
  2148. t10 := 19;
  2149. t11 := 21;
  2150. t12 := 23;
  2151.  
  2152. adj_fill.C(7)                         % fixed x points
  2153.      (8)                         % fixed y points
  2154.      ((1,4), (2,3))                    % tied points
  2155.      ((6,9), (5,10), (3,12))               % verticals
  2156.      ((4,11))                    % horizontals
  2157.      ((89,178){699,472}...{699,472}          % 0
  2158.       (788,650){176,171}...{535,488}          % 1
  2159.       (1393,1234){184,383}...          % 2
  2160.       (1582,1964){0,1}...               % 3
  2161.       (1395,2421){-1,1}...               % 4
  2162.       (899,2604){-1,0}...               % 5
  2163.       (164,2281){-1,-1}...               % 6
  2164.       (-10,1921){0,-1}...               % 7
  2165.       (36,1773){177,-342}...               % *8
  2166.       (167,1579){421,-521}...          % 9
  2167.       (327,1320){0,-1}...               % 10
  2168.       (269,1185){-218,-284}...{-439,-316}     % *11
  2169.       (109,1036)--                    % 12
  2170.       (170,982){272,155}...               % 13
  2171.       (514,1237){261,262}...               % 14
  2172.       (660,1521){0,1}...               % 15
  2173.       (612,1641){-186,287}...          % *16
  2174.       (474,1808){-413,428}...          % 17
  2175.       (356,1958){-159,272}...          % *18
  2176.       (315,2080){0,1}...               % 19
  2177.       (382,2275){1,1}...               % 20
  2178.       (628,2370){1,0}...               % 21
  2179.       (980,2221){1,-1}...               % 22
  2180.       (1191,1745){0,-1}...               % 23
  2181.       (878,918){-1,-1}...               % 24
  2182.       (640,710){-626,-473}...{-626,-473}     % 25
  2183.       (14,237)--cycle);               % 26
  2184.  
  2185. endchar(0);
  2186.  
  2187. "FBUB";
  2188.  
  2189. charbegin( "B",3073h#, capheight*v#, baseline*v#);
  2190.  
  2191. n := 16;
  2192. t1 := 0;
  2193. t2 := 1;
  2194. t3 := 3;
  2195. t4 := 4;
  2196. t5 := 5;
  2197. t6 := 6;
  2198. t7 := 7;
  2199. t8 := 9;
  2200. t9 := 12;
  2201. t10 := 14;
  2202. t11 := 15;
  2203. t12 := 18;
  2204. t13 := 22;
  2205. t14 := 24;
  2206. t15 := 27;
  2207. t16 := 31;
  2208.  
  2209. adj_fill.A(10, 16)                    % fixed x points
  2210.      (1, 11)                         % fixed y points
  2211.      ((1,6), (2,1), (3,2), (4,3), (5,4), (6,5))% tied points
  2212.      ((9,12), (8,13), (5,15))          % verticals
  2213.      ((7,14))                    % horizontals
  2214.      ((209,10){805,557}...{805,557}          % 0
  2215.       (1014,567){453,386}...{453,386}     % 1
  2216.       (1467,953){113,312}...{75,604}          % 2
  2217.       (1542,1222){6,119}...{6,119}          % 3
  2218.       (1548,1341){16,366}...{-118,634}     % 4
  2219.       (1544,2017){-59,178}...{-59,178}     % 5
  2220.       (1485,2195){-200,433}...          % 6
  2221.       (942,2593){-1,0}...               % 7
  2222.       (257,2285){-1,-1}...               % 8
  2223.       (75,1944){0,-1}...               % 9
  2224.       (125,1764){194,-389}...          % *10
  2225.       (269,1555){459,-533}...          % 11
  2226.       (403,1339){0,-1}...               % 12
  2227.       (342,1196){-1,-1}...{-317,-238}     % 13
  2228.       (128,1019)--                    % 14
  2229.       (200,969){454,282}...               % 15
  2230.       (611,1287){1,1}...               % 16
  2231.       (716,1417){142,239}...               % *17
  2232.       (753,1526){0,1}...               % 18
  2233.       (710,1647){-167,282}...          % *19
  2234.       (586,1808){-536,586}...          % 20
  2235.       (443,1990){-193,309}...          % *21
  2236.       (393,2117){0,1}...               % 22
  2237.       (458,2289){1,1}...               % 23
  2238.       (650,2365){1,0}...               % 24
  2239.       (923,2212){1,-1}...               % 25
  2240.       (1123,1765){46,-269}...{0,-1}          % 26
  2241.       (1152,1363){-39,-433}...          % 27
  2242.       (1113,930){-136,-642}...          % 28
  2243.       (972,705){-374,-379}...          % 29
  2244.       (600,410){-437,-294}...{-437,-294}     % 30
  2245.       (163,116)--cycle);               % 31
  2246.  
  2247. n := 7;
  2248. t1 := 0;
  2249. t2 := 1;
  2250. t3 := 5;
  2251. t4 := 7;
  2252. t5 := 8;
  2253. t6 := 10;
  2254. t7 := 15;
  2255.  
  2256. adj_fill.B()                         % fixed x points
  2257.      (2, 7)                         % fixed y points
  2258.      ((1,8), (4,5), (5,4), (7,7))          % tied points
  2259.      ()                         % verticals
  2260.      ((3,6))                         % horizontals
  2261.      ((2921,1964){-352,-109}...          % 0
  2262.       (2729,1927){-1,0}...               % 1
  2263.       (2625,2000){-181,260}...          % *2
  2264.       (2548,2187){-168,725}...          % 3
  2265.       (2433,2529){-1,1}...               % 4
  2266.       (2242,2596){-1,0}...               % 5
  2267.       (1903,2492){-757,-401}...{-562,-489}     % *6
  2268.       (1485,2195)--                    % 7
  2269.       (1544,2017){255,378}...          % 8
  2270.       (1759,2256){421,325}...          % *9
  2271.       (1965,2342){1,0}...               % 10
  2272.       (2078,2298){1,-1}...               % 11
  2273.       (2169,2051){115,-679}...          % 12
  2274.       (2207,1829){56,-248}...          % 13
  2275.       (2255,1733){107,-143}...{296,-193}     % 14
  2276.       (2329,1670)--cycle);               % 15
  2277.  
  2278. n := 4;
  2279. t1 := 0;
  2280. t2 := 1;
  2281. t3 := 2;
  2282. t4 := 5;
  2283.  
  2284. adj_fill.C()                         % fixed x points
  2285.      ()                         % fixed y points
  2286.      ((1,3), (2,7), (3,8), (4,3))          % tied points
  2287.      ()                         % verticals
  2288.      ()                         % horizontals
  2289.      ((1548,1341){781,329}...{781,329}     % 0
  2290.       (2329,1670){592,294}...{592,294}     % 1
  2291.       (2921,1964)--                    % 2
  2292.       (2929,1883){-661,-393}...{-661,-393}     % 3
  2293.       (2268,1490){-720,-149}...{-720,-149}     % 4
  2294.       (1548,1341)--cycle);               % 5
  2295.  
  2296. n := 11;
  2297. t1 := 0;
  2298. t2 := 1;
  2299. t3 := 4;
  2300. t4 := 6;
  2301. t5 := 9;
  2302. t6 := 10;
  2303. t7 := 11;
  2304. t8 := 12;
  2305. t9 := 14;
  2306. t10 := 16;
  2307. t11 := 18;
  2308.  
  2309. adj_fill.D()                         % fixed x points
  2310.      ()                         % fixed y points
  2311.      ((1,6), (6,3), (7,2), (11,1))          % tied points
  2312.      ((4,9))                         % verticals
  2313.      ((5,8), (3,10), (2,11))               % horizontals
  2314.      ((209,10){439,368}...               % 0
  2315.       (759,212){1,0}...               % 1
  2316.       (1327,73){928,-356}...               % 2
  2317.       (1896,-56){1,0}...{591,151}          % 3
  2318.       (2201,-16){540,408}...{540,408}     % 4
  2319.       (2741,392){345,515}...               % 5
  2320.       (2881,858){0,1}...               % 6
  2321.       (2718,1311){-1,1}...               % 7
  2322.       (2514,1426){-520,175}...{-505,41}     % *8
  2323.       (2198,1486){-650,-145}...{-650,-145}     % 9
  2324.       (1548,1341)--                    % 10
  2325.       (1542,1222){521,130}...          % 11
  2326.       (1843,1261){1,0}...               % 12
  2327.       (2326,1083){1,-1}...               % 13
  2328.       (2493,594){0,-1}...               % 14
  2329.       (2412,324){-1,-1}...               % 15
  2330.       (2252,261){-1,0}...               % 16
  2331.       (1768,384){-464,175}...{-286,8}     % 17
  2332.       (1014,567)--cycle);               % 18
  2333.  
  2334. endchar(0);
  2335.  
  2336. "FBUC";
  2337.  
  2338. charbegin( "C",2068h#, capheight*v#, baseline*v#);
  2339.  
  2340. n := 9;
  2341. t1 := 0;
  2342. t2 := 1;
  2343. t3 := 3;
  2344. t4 := 6;
  2345. t5 := 7;
  2346. t6 := 8;
  2347. t7 := 10;
  2348. t8 := 12;
  2349. t9 := 15;
  2350.  
  2351. adj_fill.A(1, 5)                    % fixed x points
  2352.      (2, 6)                         % fixed y points
  2353.      ((1,2), (9,1))                    % tied points
  2354.      ((3,8))                         % verticals
  2355.      ((4,7))                         % horizontals
  2356.      ((960,2162){-77,91}...{-77,91}          % 0
  2357.       (883,2253){-218,-138}...{-504,-379}     % 1
  2358.       (269,1856){-176,-412}...          % 2
  2359.       (124,1192){0,-1}...               % 3
  2360.       (484,246){1,-1}...               % 4
  2361.       (1357,-59){1,0}...{410,96}          % 5
  2362.       (1625,-22){521,382}...{521,382}     % 6
  2363.       (2146,360)--                    % 7
  2364.       (2134,461){-365,-200}...          % 8
  2365.       (1769,261){-365,-200}...          % 9
  2366.       (1575,232){-1,0}...               % 10
  2367.       (842,543){-1,1}...               % 11
  2368.       (523,1433){0,1}...               % 12
  2369.       (569,1782){177,586}...               % *13
  2370.       (700,2019){1,1}...{283,25}          % 14
  2371.       (901,2113)--cycle);               % 15
  2372.  
  2373. n := 8;
  2374. t1 := 0;
  2375. t2 := 2;
  2376. t3 := 4;
  2377. t4 := 5;
  2378. t5 := 6;
  2379. t6 := 7;
  2380. t7 := 9;
  2381. t8 := 11;
  2382.  
  2383. adj_fill.B(1, 5)                    % fixed x points
  2384.      ()                         % fixed y points
  2385.      ((3,1), (4,2), (5,3), (6,4))          % tied points
  2386.      ((3,7), (2,8))                    % verticals
  2387.      ()                         % horizontals
  2388.      ((688,936){373,136}...               % 0
  2389.       (885,1074){1,1}...               % 1
  2390.       (1001,1322){0,1}...               % 2
  2391.       (951,1668){-165,707}...{218,549}     % 3
  2392.       (901,2113){59,49}...{59,49}          % 4
  2393.       (960,2162){269,202}...{497,91}          % 5
  2394.       (1819,2564)--                    % 6
  2395.       (1435,2314){-345,-111}...          % 7
  2396.       (1364,2275){-1,-1}...               % 8
  2397.       (1315,2114){0,-1}...               % 9
  2398.       (1369,1838){176,-692}...          % 10
  2399.       (1426,1520){0,-1}...               % 11
  2400.       (1322,1192){-1,-1}...               % 12
  2401.       (1109,1046){-571,-307}...{-404,-157}     % *13
  2402.       (751,885)--cycle);               % 14
  2403.  
  2404. n := 4;
  2405. t1 := 0;
  2406. t2 := 2;
  2407. t3 := 5;
  2408. t4 := 8;
  2409.  
  2410. adj_fill.C()                         % fixed x points
  2411.      ()                         % fixed y points
  2412.      ((1,3), (4,4))                    % tied points
  2413.      ()                         % verticals
  2414.      ((2,3))                         % horizontals
  2415.      ((1819,2564){71,-371}...          % 0
  2416.       (1976,2195){1,-1}...               % 1
  2417.       (2071,2164){1,0}...{244,64}          % 2
  2418.       (2178,2175)--                    % 3
  2419.       (2149,2092){-541,-226}...{-274,-77}     % 4
  2420.       (1748,1959){-623,29}...          % 5
  2421.       (1676,1977){-193,136}...          % 6
  2422.       (1586,2057){-143,205}...{-241,484}     % 7
  2423.       (1435,2314)--cycle);               % 8
  2424.  
  2425. endchar(0);
  2426.  
  2427. "FBUD";
  2428.  
  2429. charbegin( "D",2879h#, capheight*v#, baseline*v#);
  2430.  
  2431. n := 7;
  2432. t1 := 0;
  2433. t2 := 3;
  2434. t3 := 7;
  2435. t4 := 11;
  2436. t5 := 12;
  2437. t6 := 15;
  2438. t7 := 17;
  2439.  
  2440. adj_fill.A(1, 4)                    % fixed x points
  2441.      ()                         % fixed y points
  2442.      ((1,2), (7,1))                    % tied points
  2443.      ((3,5), (2,6))                    % verticals
  2444.      ()                         % horizontals
  2445.      ((484,656){1,0}...               % 0
  2446.       (788,681){474,97}...               % *1
  2447.       (958,753){1,1}...               % 2
  2448.       (1019,917){0,1}...               % 3
  2449.       (974,1052){-176,313}...          % *4
  2450.       (843,1230){-398,455}...          % 5
  2451.       (715,1402){-173,295}...          % *6
  2452.       (670,1525){0,1}...               % 7
  2453.       (720,1673){191,313}...               % *8
  2454.       (861,1838){287,262}...{552,340}     % 9
  2455.       (1194,2091)--                    % 10
  2456.       (1273,2062){-1,-1}...               % 11
  2457.       (1070,1774){0,-1}...               % 12
  2458.       (1250,1459){480,-633}...          % 13
  2459.       (1365,1275){155,-329}...          % *14
  2460.       (1405,1130){0,-1}...               % 15
  2461.       (1299,885){-1,-1}...{-314,-181}     % 16
  2462.       (947,609)--cycle);               % 17
  2463.  
  2464. n := 12;
  2465. t1 := 0;
  2466. t2 := 2;
  2467. t3 := 5;
  2468. t4 := 8;
  2469. t5 := 10;
  2470. t6 := 11;
  2471. t7 := 13;
  2472. t8 := 15;
  2473. t9 := 17;
  2474. t10 := 19;
  2475. t11 := 21;
  2476. t12 := 24;
  2477.  
  2478. adj_fill.B()                         % fixed x points
  2479.      (1, 7)                         % fixed y points
  2480.      ((5,1), (6,2))                    % tied points
  2481.      ((3,10), (1,12))               % verticals
  2482.      ((6,8), (4,9), (2,11))               % horizontals
  2483.      ((73,1396){-3,462}...               % 0
  2484.       (305,2005){1,1}...               % 1
  2485.       (1077,2269){1,0}...               % 2
  2486.       (1640,2188){962,-310}...          % *3
  2487.       (2039,1959){1,-1}...               % 4
  2488.       (2345,1090){0,-1}...               % 5
  2489.       (2297,702){-183,-643}...          % *6
  2490.       (2162,447){-1,-1}...               % 7
  2491.       (1966,339){-1,0}...               % 8
  2492.       (1718,384){-440,141}...{-637,131}     % 9
  2493.       (947,609){-463,47}...{-463,47}          % 10
  2494.       (484,656){-242,-238}...{-345,-558}     % 11
  2495.       (-3,79)--                    % 12
  2496.       (52,8){215,275}...               % 13
  2497.       (216,189){1,1}...               % 14
  2498.       (467,294){1,0}...               % 15
  2499.       (1217,79){979,-384}...{1,0}          % 16
  2500.       (1684,-47){607,403}...{361,357}     % 17
  2501.       (2512,626){257,503}...               % 18
  2502.       (2708,1436){0,1}...               % 19
  2503.       (2425,2220){-1,1}...               % 20
  2504.       (1352,2594){-1,0}...               % 21
  2505.       (735,2514){-1033,-307}...          % *22
  2506.       (319,2287){-1,-1}...{0,-1}          % 23
  2507.       (-7,1437)--cycle);               % 24
  2508.  
  2509. endchar(0);
  2510.  
  2511. "FBUE";
  2512.  
  2513. charbegin( "E",2254h#, capheight*v#, baseline*v#);
  2514.  
  2515.  
  2516. n := 8;
  2517. t1 := 0;
  2518. t2 := 2;
  2519. t3 := 4;
  2520. t4 := 5;
  2521. t5 := 7;
  2522. t6 := 10;
  2523. t7 := 12;
  2524. t8 := 13;
  2525.  
  2526. adj_fill.A(4, 8)                    % fixed x points
  2527.      (4, 7)                         % fixed y points
  2528.      ((1,2), (8,1))                    % tied points
  2529.      ((2,6))                         % verticals
  2530.      ((3,5))                         % horizontals
  2531.      ((908,2158){-207,-45}...          % 0
  2532.       (745,2061){-1,-1}...               % 1
  2533.       (512,1433){0,-1}...               % 2
  2534.       (863,571){1,-1}...               % 3
  2535.       (1538,259){1,0}...{457,322}          % 4
  2536.       (2148,473)--                    % 5
  2537.       (2147,374){-484,-380}...{-484,-380}     % 6
  2538.       (1663,-6){-445,-95}...               % 7
  2539.       (1298,-48){-1,0}...               % 8
  2540.       (497,251){-1,1}...               % 9
  2541.       (128,1189){0,1}...{147,342}          % 10
  2542.       (257,1846){399,338}...{242,146}     % 11
  2543.       (864,2275){134,-67}...{134,-67}     % 12
  2544.       (998,2208)--cycle);               % 13
  2545.  
  2546. n := 9;
  2547. t1 := 0;
  2548. t2 := 2;
  2549. t3 := 6;
  2550. t4 := 7;
  2551. t5 := 8;
  2552. t6 := 9;
  2553. t7 := 10;
  2554. t8 := 12;
  2555. t9 := 13;
  2556.  
  2557. adj_fill.B(1, 5)                    % fixed x points
  2558.      ()                         % fixed y points
  2559.      ((3,2), (4,1), (5,3), (6,4), (8,5), (9,6))% tied points
  2560.      ((3,7), (2,9))                    % verticals
  2561.      ()                         % horizontals
  2562.      ((701,949){274,122}...               % 0
  2563.       (912,1096){1,1}...               % 1
  2564.       (1007,1291){0,1}...               % 2
  2565.       (968,1620){-172,806}...          % 3
  2566.       (898,1932){-81,398}...               % *4
  2567.       (887,2018){0,1}...{142,438}          % 5
  2568.       (908,2158){90,50}...{90,50}          % 6
  2569.       (998,2208){174,125}...{511,172}     % 7
  2570.       (1812,2603)--                    % 8
  2571.       (1435,2345){-391,-304}...          % 9
  2572.       (1324,2168){0,-1}...               % 10
  2573.       (1382,1812){189,-829}...{-20,-286}     % 11
  2574.       (1444,1470){-15,-105}...{-15,-105}     % 12
  2575.       (1429,1365){-169,-456}...          % 13
  2576.       (1336,1225){-1,-1}...{-465,-167}     % 14
  2577.       (770,897)--cycle);               % 15
  2578.  
  2579. n := 4;
  2580. t1 := 0;
  2581. t2 := 3;
  2582. t3 := 6;
  2583. t4 := 10;
  2584.  
  2585. adj_fill.C()                         % fixed x points
  2586.      ()                         % fixed y points
  2587.      ((1,3), (4,4))                    % tied points
  2588.      ()                         % verticals
  2589.      ((2,3))                         % horizontals
  2590.      ((1812,2603){95,-404}...          % 0
  2591.       (1889,2360){171,-394}...          % *1
  2592.       (1983,2209){1,-1}...               % 2
  2593.       (2059,2175){1,0}...{216,56}          % 3
  2594.       (2183,2194)--                    % 4
  2595.       (2166,2112){-388,-138}...          % 5
  2596.       (1778,1974){-334,-121}...          % 6
  2597.       (1744,1968){-1.953,.07459}...          % 7
  2598.       (1705,1978){-123,102}...          % 8
  2599.       (1625,2069){-270,367}...{-174,253}     % *9
  2600.       (1435,2345)--cycle);               % 10
  2601.  
  2602. n := 2;
  2603. t1 := 0;
  2604. t2 := 9;
  2605.  
  2606. adj_fill.D()                         % fixed x points
  2607.      ()                         % fixed y points
  2608.      ((1,5), (2,6))                    % tied points
  2609.      ()                         % verticals
  2610.      ()                         % horizontals
  2611.      ((1444,1470){13,9}...{13,9}          % 0
  2612.       (1457,1479){367,285}...{367,285}     % 1
  2613.       (1824,1764){98,-205}...{270,-188}     % 2
  2614.       (2112,1414)--                    % 3
  2615.       (1829,1216){-450,-32}...          % 4
  2616.       (1775,1215){-260,79}...          % 5
  2617.       (1662,1292){-268,195}...          % 6
  2618.       (1548,1379){-153,102}...          % *7
  2619.       (1509,1394){-1,0}...{-277,-252}     % 8
  2620.       (1429,1365)--cycle);               % 9
  2621.  
  2622. endchar(0);
  2623.  
  2624. "FBUF";
  2625.  
  2626. %charbegin( "F",2063h#, capheight*v#, depthy*v#);
  2627. charbegin( "F",2063h#, capheight*v#, 2/3descender*v#); % DEK
  2628.  
  2629. n := 8;
  2630. t1 := 0;
  2631. t2 := 1;
  2632. t3 := 4;
  2633. t4 := 7;
  2634. t5 := 9;
  2635. t6 := 10;
  2636. t7 := 11;
  2637. t8 := 12;
  2638.  
  2639. adj_fill.A()                         % fixed x points
  2640.      (1, 4)                         % fixed y points
  2641.      ((6,1), (7,2))                    % tied points
  2642.      ()                         % verticals
  2643.      ((3,5), (2,8))                    % horizontals
  2644.      ((2164,2436){-239,-228}...          % 0
  2645.       (1848,2209){-1,0}...               % 1
  2646.       (1436,2376){-384,195}...          % 2
  2647.       (1068,2537){-629,215}...          % *3
  2648.       (807,2591){-1,0}...               % 4
  2649.       (364,2421){-1,-1}...{-89,-436}          % 5
  2650.       (86,1839)--                    % 6
  2651.       (169,1773){88,411}...               % 7
  2652.       (365,2200){1,1}...               % 8
  2653.       (559,2267){1,0}...{249,-133}          % 9
  2654.       (1233,1993){135,-51}...{135,-51}     % 10
  2655.       (1368,1942){406,-142}...{296,-13}     % 11
  2656.       (1727,1859){486,436}...{126,145}     % 12
  2657.       (2179,2352)--cycle);               % 13
  2658.  
  2659. n := 15;
  2660. t1 := 0;
  2661. t2 := 2;
  2662. t3 := 6;
  2663. t4 := 8;
  2664. t5 := 10;
  2665. t6 := 13;
  2666. t7 := 16;
  2667. t8 := 17;
  2668. t9 := 19;
  2669. t10 := 21;
  2670. t11 := 22;
  2671. t12 := 24;
  2672. t13 := 26;
  2673. t14 := 28;
  2674. t15 := 32;
  2675.  
  2676. adj_fill.B(1)                         % fixed x points
  2677.      ()                         % fixed y points
  2678.      ((7,1), (8,2), (10,3), (11,4))          % tied points
  2679.      ((6,9), (5,12), (3,14))               % verticals
  2680.      ((4,13), (2,15))               % horizontals
  2681.      ((-47,687){228,149}...               % 0
  2682.       (266,855){566,225}...               % *1
  2683.       (519,912){1,0}...               % 2
  2684.       (672,850){1,-1}...               % 3
  2685.       (747,727){0,-1}...               % 4
  2686.       (706,456){-112,-516}...          % 5
  2687.       (636,0){0,-1}...               % 6
  2688.       (726,-264){1,-1}...               % 7
  2689.       (907,-335){1,0}...               % 8
  2690.       (1247,-184){1,1}...               % 9
  2691.       (1367,191){0,1}...{-591,794}          % 10
  2692.       (1071,733){-580,773}...          % 11
  2693.       (803,1135){-357,658}...          % *12
  2694.       (714,1391){0,1}...               % 13
  2695.       (767,1569){204,373}...               % *14
  2696.       (918,1764){1,1}...{505,287}          % 15
  2697.       (1233,1993)--                    % 16
  2698.       (1368,1942){-401,-142}...          % 17
  2699.       (1123,1799){-1,-1}...               % 18
  2700.       (1042,1625){0,-1}...               % 19
  2701.       (1102,1423){232,-459}...{356,-439}     % *20
  2702.       (1274,1166){68,-80}...{68,-80}          % 21
  2703.       (1342,1086){317,-393}...          % 22
  2704.       (1623,681){378,-689}...          % *23
  2705.       (1720,397){0,-1}...               % 24
  2706.       (1519,-112){-1,-1}...               % 25
  2707.       (745,-483){-1,0}...               % 26
  2708.       (409,-372){-1,1}...               % 27
  2709.       (286,7){0,1}...               % 28
  2710.       (315,304){63,759}...               % 29
  2711.       (317,480){0,1}...               % 30
  2712.       (272,638){-1,1}...               % 31
  2713.       (166,687){-1,0}...{-554,-270}          % 32
  2714.       (-38,618)--cycle);               % 33
  2715.  
  2716. n := 4;
  2717. t1 := 0;
  2718. t2 := 1;
  2719. t3 := 5;
  2720. t4 := 6;
  2721.  
  2722. adj_fill.C()                         % fixed x points
  2723.      ()                         % fixed y points
  2724.      ((1,3), (4,4))                    % tied points
  2725.      ()                         % verticals
  2726.      ((2,3))                         % horizontals
  2727.      ((1274,1166){469,442}...{469,442}     % 0
  2728.       (1743,1608){175,-166}...{211,-380}     % 1
  2729.       (1997,1292)--                    % 2
  2730.       (1747,1032){-144,266}...          % 3
  2731.       (1661,1165){-211,189}...          % 4
  2732.       (1546,1216){-1,0}...{-307,-286}     % 5
  2733.       (1342,1086)--cycle);               % 6
  2734.  
  2735. endchar(0);
  2736.  
  2737. "FBUG";
  2738.  
  2739. charbegin( "G",2708h#, capheight*v#, baseline*v#);
  2740.  
  2741. n := 13;
  2742. t1 := 0;
  2743. t2 := 1;
  2744. t3 := 4;
  2745. t4 := 6;
  2746. t5 := 9;
  2747. t6 := 11;
  2748. t7 := 12;
  2749. t8 := 13;
  2750. t9 := 14;
  2751. t10 := 16;
  2752. t11 := 18;
  2753. t12 := 20;
  2754. t13 := 22;
  2755.  
  2756. adj_fill.A(1, 7)                    % fixed x points
  2757.      (2)                         % fixed y points
  2758.      ((1,5), (6,1), (7,2), (8,3), (13,4))     % tied points
  2759.      ((5,10), (3,12))               % verticals
  2760.      ((6,9), (4,11))                    % horizontals
  2761.      ((974,2219){-108,45}...{-108,45}     % 0
  2762.       (866,2264){-585,-369}...{-585,-369}     % 1
  2763.       (281,1895){-300,-370}...          % 2
  2764.       (171,1637){-148,-660}...          % *3
  2765.       (133,1235){0,-1}...               % 4
  2766.       (510,258){1,-1}...               % 5
  2767.       (1276,-47){1,0}...{681,112}          % 6
  2768.       (1613,-6){408,378}...               % 7
  2769.       (2048,295){361,220}...               % 8
  2770.       (2546,1136){0,1}...               % 9
  2771.       (2371,1556){-1,1}...{-1,0}          % 10
  2772.       (1798,1753){-441,-197}...{-441,-197}     % 11
  2773.       (1357,1556)--                    % 12
  2774.       (1362,1451){491,101}...          % 13
  2775.       (1574,1475){1,0}...               % 14
  2776.       (1972,1340){1,-1}...               % 15
  2777.       (2151,858){0,-1}...               % 16
  2778.       (1977,393){-1,-1}...               % 17
  2779.       (1575,249){-1,0}...               % 18
  2780.       (871,551){-1,1}...               % 19
  2781.       (500,1506){0,1}...               % 20
  2782.       (660,2014){1,1}...{393,66}          % 21
  2783.       (897,2161)--cycle);               % 22
  2784.  
  2785. n := 9;
  2786. t1 := 0;
  2787. t2 := 2;
  2788. t3 := 5;
  2789. t4 := 6;
  2790. t5 := 7;
  2791. t6 := 9;
  2792. t7 := 10;
  2793. t8 := 11;
  2794. t9 := 12;
  2795.  
  2796. adj_fill.B(1, 6)                    % fixed x points
  2797.      ()                         % fixed y points
  2798.      ((4,4), (5,5), (8,2), (9,3))          % tied points
  2799.      ((3,7), (2,9))                    % verticals
  2800.      ()                         % horizontals
  2801.      ((741,902){353,124}...               % 0
  2802.       (910,997){1,1}...{85,212}          % 1
  2803.       (995,1209){0,1}...               % 2
  2804.       (929,1582){-206,1006}...          % 3
  2805.       (863,1882){-75,376}...               % *4
  2806.       (854,1958){0,1}...{80,169}          % 5
  2807.       (897,2161){77,58}...{77,58}          % 6
  2808.       (974,2219){269,221}...{437,214}     % 7
  2809.       (1428,2508)--                    % 8
  2810.       (1496,2465){-404,-202}...          % 9
  2811.       (1284,2108){0,-1}...{84,-513}          % 10
  2812.       (1357,1556){5,-105}...{5,-105}          % 11
  2813.       (1362,1451){83,-587}...          % 12
  2814.       (1291,1097){-1,-1}...               % 13
  2815.       (1108,975){-488,-248}...{-394,-137}     % *14
  2816.       (803,849)--cycle);               % 15
  2817.  
  2818. n := 5;
  2819. t1 := 0;
  2820. t2 := 3;
  2821. t3 := 5;
  2822. t4 := 8;
  2823. t5 := 9;
  2824.  
  2825. adj_fill.C()                         % fixed x points
  2826.      (3)                         % fixed y points
  2827.      ((1,1), (5,2))                    % tied points
  2828.      ()                         % verticals
  2829.      ((2,4))                         % horizontals
  2830.      ((1798,1753){233,222}...{552,444}     % 0
  2831.       (2445,2323){0,76}...{0,76}          % 1
  2832.       (2445,2399){-1,-1}...               % 2
  2833.       (2223,2324){-1,0}...               % 3
  2834.       (1998,2406){-1,1}...{-219,548}          % 4
  2835.       (1878,2606)--                    % 5
  2836.       (1543,2324){126,-493}...          % 6
  2837.       (1623,2166){1,-1}...{518,-153}          % 7
  2838.       (1917,2008){-494,-440}...{-560,-452}     % 8
  2839.       (1357,1556)--cycle);               % 9
  2840.  
  2841. endchar(0);
  2842.  
  2843. "FBUH";
  2844.  
  2845. %charbegin( "H",2467h#, capheight*v#, descender*v#);
  2846. charbegin( "H",2467h#, capheight*v#, 1/3descender*v#); % DEK
  2847.  
  2848. n := 13;
  2849. t1 := 0;
  2850. t2 := 1;
  2851. t3 := 3;
  2852. t4 := 5;
  2853. t5 := 10;
  2854. t6 := 11;
  2855. t7 := 12;
  2856. t8 := 13;
  2857. t9 := 16;
  2858. t10 := 18;
  2859. t11 := 19;
  2860. t12 := 20;
  2861. t13 := 24;
  2862.  
  2863. adj_fill.A(1, 7)                    % fixed x points
  2864.      (6)                         % fixed y points
  2865.      ((10,1), (11,2))               % tied points
  2866.      ((4,9), (3,12))                    % verticals
  2867.      ((5,8), (2,13))                    % horizontals
  2868.      ((-82,92){250,297}...               % 0
  2869.       (421,525){1,0}...{340,-456}          % 1
  2870.       (723,329){273,396}...               % 2
  2871.       (803,578){0,1}...               % 3
  2872.       (576,1128){-535,960}...          % 4
  2873.       (387,1705){0,1}...               % 5
  2874.       (478,1962){353,589}...               % *6
  2875.       (740,2294){356,376}...{400,285}     % 7
  2876.       (1105,2590){1,-1}...               % 8
  2877.       (1321,2414){391,-238}...          % *9
  2878.       (1496,2352){1,0}...{453,352}          % 10
  2879.       (1879,2565)--                    % 11
  2880.       (1889,2474){-437,-414}...{-437,-414}     % 12
  2881.       (1452,2060){-503,-156}...          % 13
  2882.       (1305,2036){-1,0}...{-326,241}          % 14
  2883.       (811,2243){-485,-516}...          % 15
  2884.       (696,2004){0,-1}...               % 16
  2885.       (750,1757){215,-622}...{211,-433}     % *17
  2886.       (911,1382){44,-99}...{44,-99}          % 18
  2887.       (955,1283){294,-616}...          % 19
  2888.       (1120,819){0,-1}...               % 20
  2889.       (1028,543){-521,-571}...{-521,-571}     % 21
  2890.       (507,-28){-285,308}...               % 22
  2891.       (341,119){-299,199}...               % *23
  2892.       (208,171){-1,0}...               % 24
  2893.       (95,132){-263,-152}...{-250,-225}     % *25
  2894.       (-55,19)--cycle);               % 26
  2895.  
  2896. n := 7;
  2897. t1 := 1;
  2898. t2 := 8;
  2899. t3 := 9;
  2900. t4 := 10;
  2901. t5 := 12;
  2902. t6 := 17;
  2903. t7 := 19;
  2904.  
  2905. adj_fill.B()                         % fixed x points
  2906.      (7)                         % fixed y points
  2907.      ((3,1), (4,2))                    % tied points
  2908.      ()                         % verticals
  2909.      ((2,5), (1,6))                    % horizontals
  2910.      ((1147,-261){225,-235}...          % 0
  2911.       (1451,-411){1,0}...               % 1
  2912.       (1598,-354){502,369}...{545,415}     % 2
  2913.       (2100,15){131,341}...               % 3
  2914.       (2260,956){0,1}...               % 4
  2915.       (2157,1622){-226,653}...          % 5
  2916.       (2084,1707){-223.2,146.9}...          % *6
  2917.       (1934,1769){-682,181}...{-481,-29}     % *7
  2918.       (1475,1803){-287,-178}...{-1,-1}     % 8
  2919.       (911,1382)--                    % 9
  2920.       (955,1283){508,368}...               % 10
  2921.       (1211,1435){463,204}...          % *11
  2922.       (1418,1487){1,0}...               % 12
  2923.       (1726,1356){1,-1}...               % 13
  2924.       (1829,1124){139,-636}...          % *14
  2925.       (1865,720){0,-1}...               % 15
  2926.       (1749,-106){-1,-1}...               % 16
  2927.       (1587,-195){-1,0}...               % 17
  2928.       (1474,-141){-205,196}...{-177,440}     % *18
  2929.       (1382,1){-48,-3}...{-48,-3}          % 19
  2930.       (1334,-2)--cycle);               % 20
  2931.  
  2932. endchar(0);
  2933.  
  2934. "FBUI";
  2935.  
  2936. charbegin( "I",1853h#, capheight*v#, baseline*v#);
  2937.  
  2938. n := 7;
  2939. t1 := 0;
  2940. t2 := 2;
  2941. t3 := 4;
  2942. t4 := 8;
  2943. t5 := 9;
  2944. t6 := 11;
  2945. t7 := 13;
  2946.  
  2947. adj_fill.A()                         % fixed x points
  2948.      (1, 4, 5)                    % fixed y points
  2949.      ()                         % tied points
  2950.      ()                         % verticals
  2951.      ((3,6), (2,7))                    % horizontals
  2952.      ((1826,2540){-296,-285}...          % 0
  2953.       (1630,2390){-364,-203}...          % *1
  2954.       (1462,2337){-1,0}...               % 2
  2955.       (1113,2461){-502,216}...          % 3
  2956.       (701,2587){-1,0}...               % 4
  2957.       (356,2451){-281,-260}...          % 5
  2958.       (193,2225){-358,-626}...{-230,-535}     % *6
  2959.       (-2,1825)--                    % 7
  2960.       (56,1763){24,0}...{24,0}          % 8
  2961.       (80,1763){219,417}...               % 9
  2962.       (279,2065){1,1}...               % 10
  2963.       (550,2178){1,0}...               % 11
  2964.       (866,2118){719,-235}...{387,-59}     % 12
  2965.       (1240,2013){575,332}...{249,231}     % 13
  2966.       (1853,2483)--cycle);               % 14
  2967.  
  2968. n := 8;
  2969. t1 := 0;
  2970. t2 := 1;
  2971. t3 := 1.188;
  2972. t4 := 4;
  2973. t5 := 7;
  2974. t6 := 10;
  2975. t7 := 15;
  2976. t8 := 17;
  2977.  
  2978. adj_fill.B(1)                         % fixed x points
  2979.      (2, 3, 6)                    % fixed y points
  2980.      ()                         % tied points
  2981.      ((5,7))                         % verticals
  2982.      ((4,8))                         % horizontals
  2983.      ((19,66){242,291}...               % 0
  2984.       (503,563){550,505}...{30,-18}          % 1
  2985.       (533,545){204,-467}...               % 2
  2986.       (750,219){1,-1}...               % 3
  2987.       (904,169){1,0}...               % 4
  2988.       (1087,268){1,1}...               % 5
  2989.       (1179,449){124,466}...               % *6
  2990.       (1211,734){0,1}...               % 7
  2991.       (1173,1149){-91,903}...{79,633}     % 8
  2992.       (1169,1662){285,363}...{433,309}     % 9
  2993.       (1726,2199)--                    % 10
  2994.       (1802,2161){-453,-390}...          % 11
  2995.       (1606,1943){-265,-416}...          % *12
  2996.       (1537,1745){0,-1}...               % 13
  2997.       (1558,1478){146,-960}...          % 14
  2998.       (1612,939){0,-1}...               % 15
  2999.       (1399,330){-1,-1}...               % 16
  3000.       (638,-33){-1,0}...{-320,270}          % 17
  3001.       (235,142){-175,-129}...{-175,-129}     % 18
  3002.       (60,13)--cycle);               % 19
  3003.  
  3004. endchar(0);
  3005.  
  3006. "FBUJ";
  3007.  
  3008. %charbegin( "J",1845h#, capheight*v#, depthy*v#);
  3009. charbegin( "J",1845h#, capheight*v#, 2/3descender*v#); % DEK
  3010.  
  3011. n := 4;
  3012. t1 := 5;
  3013. t2 := 8;
  3014. t3 := 10;
  3015. t4 := 12;
  3016.  
  3017. adj_fill.A()                         % fixed x points
  3018.      (2, 4)                         % fixed y points
  3019.      ()                         % tied points
  3020.      ()                         % verticals
  3021.      ((1,3))                         % horizontals
  3022.      ((1830,2308){-387,-169}...          % 0
  3023.       (1467,2194){-1,0}...               % 1
  3024.       (1328,2243){-348,192}...          % *2
  3025.       (1119,2386){-806,631}...          % 3
  3026.       (908,2529){-356,192}...          % *4
  3027.       (763,2578){-1,0}...               % 5
  3028.       (408,2418){-1,-1}...{-296,-619}     % 6
  3029.       (102,1946)--                    % 7
  3030.       (161,1894){237,400}...               % 8
  3031.       (332,2122){1,1}...               % 9
  3032.       (526,2204){1,0}...               % 10
  3033.       (894,2065){882,-545}...{401,-214}     % 11
  3034.       (1155,1924){562,192}...{291,165}     % 12
  3035.       (1829,2229)--cycle);               % 13
  3036.  
  3037. n := 10;
  3038. t1 := 0;
  3039. t2 := 2;
  3040. t3 := 5;
  3041. t4 := 7;
  3042. t5 := 9;
  3043. t6 := 10.73;
  3044. t7 := 12;
  3045. t8 := 16;
  3046. t9 := 18;
  3047. t10 := 22;
  3048.  
  3049. adj_fill.B(1, 3, 6)                    % fixed x points
  3050.      (2, 7, 10)                    % fixed y points
  3051.      ()                         % tied points
  3052.      ((5,8))                         % verticals
  3053.      ((4,9))                         % horizontals
  3054.      ((-126,344){423,342}...               % 0
  3055.       (179,542){564,267}...               % *1
  3056.       (438,611){1,0}...               % 2
  3057.       (615,546){1,-1}...               % 3
  3058.       (657,422){44,-495}...               % *4
  3059.       (659,51){0,-1}...               % 5
  3060.       (777,-273){1,-1}...               % 6
  3061.       (917,-331){1,0}...               % 7
  3062.       (1128,-233){1,1}...               % 8
  3063.       (1231,81){0,1}...               % 9
  3064.       (1119,694){-280,1096}...{102,626}     % 10
  3065.       (1056,1401){152,219}...{529,423}     % 11
  3066.       (1615,2006)--                    % 12
  3067.       (1693,1972){-514,-529}...          % 13
  3068.       (1419,1436){-7,-725}...          % 14
  3069.       (1495,958){183,-711}...          % 15
  3070.       (1591,371){0,-1}...               % 16
  3071.       (1377,-189){-1,-1}...               % 17
  3072.       (768,-465){-1,0}...               % 18
  3073.       (442,-370){-1,1}...               % 19
  3074.       (291,-21){-115,822}...               % 20
  3075.       (216,285){-1,1}...               % 21
  3076.       (86,340){-1,0}...{-363,-192}          % 22
  3077.       (-96,278)--cycle);               % 23
  3078.  
  3079. endchar(0);
  3080.  
  3081. "FBUK";
  3082.  
  3083. charbegin( "K",2275h#, capheight*v#, baseline*v#);
  3084.  
  3085. n := 15;
  3086. t1 := 1;
  3087. t2 := 3;
  3088. t3 := 5;
  3089. t4 := 7;
  3090. t5 := 10;
  3091. t6 := 12;
  3092. t7 := 14;
  3093. t8 := 16;
  3094. t9 := 18;
  3095. t10 := 19;
  3096. t11 := 20;
  3097. t12 := 21;
  3098. t13 := 22;
  3099. t14 := 25;
  3100. t15 := 27;
  3101.  
  3102. adj_fill.A(6, 15)                    % fixed x points
  3103.      (1, 7)                         % fixed y points
  3104.      ((10,1), (11,2), (12,3), (13,4))     % tied points
  3105.      ((4,9), (3,13))                    % verticals
  3106.      ((5,8), (2,14))                    % horizontals
  3107.      ((233,494){43,4}...{43,4}          % 0
  3108.       (276,498){185,-553}...               % 1
  3109.       (391,294){1,-1}...               % 2
  3110.       (495,237){1,0}...               % 3
  3111.       (577,272){1,1}...               % 4
  3112.       (637,474){0,1}...               % 5
  3113.       (514,949){-358,1019}...          % 6
  3114.       (378,1573){0,1}...               % 7
  3115.       (472,1888){362,660}...               % *8
  3116.       (740,2233){1,1}...               % 9
  3117.       (1557,2585){1,0}...               % 10
  3118.       (2068,2422){1,-1}...               % 11
  3119.       (2148,2278){0,-1}...{-57,-404}          % 12
  3120.       (2091,1874)--                    % 13
  3121.       (2018,1865){-192,519}...          % 14
  3122.       (1853,2142){-1,1}...               % 15
  3123.       (1307,2355){-1,0}...               % 16
  3124.       (842,2194){-1,-1}...               % 17
  3125.       (720,1861){0,-1}...{140,-521}          % 18
  3126.       (793,1399){48,-177}...{48,-177}     % 19
  3127.       (841,1222){165,-650}...{80,-411}     % 20
  3128.       (906,927){30,-103}...{30,-103}          % 21
  3129.       (936,824){51,-508}...{-107,-509}     % 22
  3130.       (920,488){-353,-434}...          % 23
  3131.       (456,33){-352,-247}...               % 24
  3132.       (288,-20){-1,0}...               % 25
  3133.       (40,82){-1,1}...{-210,267}          % 26
  3134.       (-38,179)--cycle);               % 27
  3135.  
  3136. n := 6;
  3137. t1 := 0;
  3138. t2 := 7;
  3139. t3 := 9;
  3140. t4 := 10;
  3141. t5 := 12;
  3142. t6 := 16;
  3143.  
  3144. adj_fill.B()                         % fixed x points
  3145.      ()                         % fixed y points
  3146.      ((1,5), (3,1), (4,2), (6,3))          % tied points
  3147.      ()                         % verticals
  3148.      ((2,5))                         % horizontals
  3149.      ((1595,1104){586,230}...{586,230}     % 0
  3150.       (2181,1334){15,91}...{15,91}          % 1
  3151.       (2196,1425){-348,-120}...          % 2
  3152.       (2050,1388){-1,0}...               % 3
  3153.       (1968,1419){-1,1}...               % 4
  3154.       (1893,1602){-148,509}...          % 5
  3155.       (1783,1853){-1,1}...               % 6
  3156.       (1597,1919){-1,0}...               % 7
  3157.       (1224,1783){-804,-520}...{-375,-421}     % *8
  3158.       (793,1399)--                    % 9
  3159.       (841,1222){232,413}...               % 10
  3160.       (1035,1508){1,1}...               % 11
  3161.       (1326,1658){1,0}...               % 12
  3162.       (1448,1593){1,-1}...               % 13
  3163.       (1535,1417){88,-369}...{127,-136}     % 14
  3164.       (1608,1219){-702,-292}...{-63,-22}     % 15
  3165.       (906,927)--cycle);               % 16
  3166.  
  3167. n := 6;
  3168. t1 := 1;
  3169. t2 := 5;
  3170. t3 := 6;
  3171. t4 := 7;
  3172. t5 := 7.702;
  3173. t6 := 13;
  3174.  
  3175. adj_fill.C()                         % fixed x points
  3176.      ()                         % fixed y points
  3177.      ((2,5), (3,3), (4,4))               % tied points
  3178.      ()                         % verticals
  3179.      ((2,5), (1,6))                    % horizontals
  3180.      ((2427,396){-333,-251}...          % 0
  3181.       (2217,307){-1,0}...               % 1
  3182.       (2075,347){-1,1}...               % 2
  3183.       (1982,488){-142,551}...          % 3
  3184.       (1840,1039){-430,120}...{-457,70}     % 4
  3185.       (1595,1104){-689,-177}...{-689,-177}     % 5
  3186.       (906,927)--                    % 6
  3187.       (936,824){605,203}...{251,-69}          % 7
  3188.       (1397,871){251,-68}...               % 8
  3189.       (1470,803){136,-216}...          % *9
  3190.       (1533,655){117,-399}...          % 10
  3191.       (1588,404){111,-795}...          % 11
  3192.       (1747,6){1,-1}...               % 12
  3193.       (1896,-38){1,0}...               % 13
  3194.       (2134,54){552,355}...{1,1}          % *14
  3195.       (2448,317)--cycle);               % 15
  3196.  
  3197. endchar(0);
  3198.  
  3199. "FBUL";
  3200.  
  3201. charbegin( "L",2266h#, capheight*v#, baseline*v#);
  3202.  
  3203. n := 7;
  3204. t1 := 0;
  3205. t2 := 2;
  3206. t3 := 4;
  3207. t4 := 5;
  3208. t5 := 7;
  3209. t6 := 9;
  3210. t7 := 11;
  3211.  
  3212. adj_fill.A()                         % fixed x points
  3213.      (1, 5)                         % fixed y points
  3214.      ((3,1), (4,2))                    % tied points
  3215.      ()                         % verticals
  3216.      ((4,6), (2,7))                    % horizontals
  3217.      ((2235,840){-77,-345}...          % 0
  3218.       (2075,499){-1,-1}...               % 1
  3219.       (1719,365){-1,0}...               % 2
  3220.       (1167,454){-441,157}...          % 3
  3221.       (726,611){-1.939,.409}...{-366,27}     % 4
  3222.       (360,638){-208,-220}...{-212,-523}     % 5
  3223.       (-6,43)--                    % 6
  3224.       (45,-5){254,402}...               % 7
  3225.       (214,240){1,1}...               % 8
  3226.       (378,304){1,0}...               % 9
  3227.       (850,152){1000,-407}...          % 10
  3228.       (1686,-44){1,0}...               % 11
  3229.       (2039,116){1,1}...               % 12
  3230.       (2172,358){258,685}...{83,377}          % *13
  3231.       (2297,801)--cycle);               % 14
  3232.  
  3233. n := 13;
  3234. t1 := 0;
  3235. t2 := 3;
  3236. t3 := 5;
  3237. t4 := 8;
  3238. t5 := 12;
  3239. t6 := 13;
  3240. t7 := 14;
  3241. t8 := 16;
  3242. t9 := 19;
  3243. t10 := 22;
  3244. t11 := 24;
  3245. t12 := 27;
  3246. t13 := 28;
  3247.  
  3248. adj_fill.B(7)                         % fixed x points
  3249.      ()                         % fixed y points
  3250.      ((1,2), (13,1))                    % tied points
  3251.      ((5,9), (3,11), (2,12))               % verticals
  3252.      ((6,8), (4,10))                    % horizontals
  3253.      ((360,638){501,52}...               % 0
  3254.       (574,679){341,108}...               % *1
  3255.       (701,746){1,1}...               % 2
  3256.       (767,914){0,1}...               % 3
  3257.       (577,1340){-403,733}...          % 4
  3258.       (457,1724){0,1}...               % 5
  3259.       (539,1992){315,567}...               % *6
  3260.       (772,2291){1,1}...               % 7
  3261.       (1575,2589){1,0}...               % 8
  3262.       (1922,2482){1,-1}...               % 9
  3263.       (1985,2325){62,-418}...          % *10
  3264.       (1984,2064){-83,-723}...          % 11
  3265.       (1975,1926){0,-1}...               % 12
  3266.       (2050,1753){1,-1}...{295,17}          % 13
  3267.       (2217,1733)--                    % 14
  3268.       (2190,1680){-481,-162}...{-481,-162}     % 15
  3269.       (1709,1518){-1,0}...               % 16
  3270.       (1619,1545){-1,1}...               % 17
  3271.       (1552,1704){0,1}...               % 18
  3272.       (1570,1849){47,498}...               % 19
  3273.       (1587,2043){0,1}...               % 20
  3274.       (1501,2274){-1,1}...               % 21
  3275.       (1204,2385){-1,0}...               % 22
  3276.       (929,2282){-1,-1}...               % 23
  3277.       (820,1996){0,-1}...               % 24
  3278.       (936,1569){274,-614}...          % 25
  3279.       (1042,1268){127,-532}...{-57,-482}     % *26
  3280.       (1063,1037){-337,-426}...{-337,-426}     % 27
  3281.       (726,611)--cycle);               % 28
  3282.  
  3283. endchar(0);
  3284.  
  3285. "FBUM";
  3286.  
  3287. charbegin( "M",3686h#, capheight*v#, baseline*v#);
  3288.  
  3289. n := 15;
  3290. t1 := 2;
  3291. t2 := 6;
  3292. t3 := 7;
  3293. t4 := 8;
  3294. t5 := 10;
  3295. t6 := 13;
  3296. t7 := 15;
  3297. t8 := 17;
  3298. t9 := 18;
  3299. t10 := 20;
  3300. t11 := 23;
  3301. t12 := 25;
  3302. t13 := 28;
  3303. t14 := 33;
  3304. t15 := 35;
  3305.  
  3306. adj_fill.A(8, 15)                    % fixed x points
  3307.      (9)                         % fixed y points
  3308.      ((3,1), (4,2))                    % tied points
  3309.      ((7,10), (6,11), (2,13))          % verticals
  3310.      ((5,12), (1,14))               % horizontals
  3311.      ((36,5){256,284}...               % 0
  3312.       (130,101){1,1}...               % 1
  3313.       (299,165){1,0}...               % 2
  3314.       (438,113){280,-196}...{354,-486}     % *3
  3315.       (579,-31){688,573}...{688,573}          % 4
  3316.       (1267,542){230,495}...               % 5
  3317.       (1548,1683){.1556,1.967}...{-122,620}     % 6
  3318.       (1517,2053){-49,114}...{-49,114}     % 7
  3319.       (1468,2167){-186,492}...          % 8
  3320.       (1305,2432){-1,1}...               % 9
  3321.       (893,2592){-1,0}...               % 10
  3322.       (256,2351){-1,-1}...               % 11
  3323.       (54,2108){-273,-430}...          % *12
  3324.       (-17,1921){0,-1}...               % 13
  3325.       (162,1591){467,-614}...          % 14
  3326.       (319,1310){0,-1}...               % 15
  3327.       (259,1179){-228,-281}...{-434,-304}     % *16
  3328.       (91,1029)--                    % 17
  3329.       (148,968){393,225}...               % 18
  3330.       (511,1245){1,1}...               % 19
  3331.       (651,1527){0,1}...               % 20
  3332.       (605,1653){-179,309}...          % *21
  3333.       (472,1836){-584,698}...          % 22
  3334.       (288,2149){0,1}...               % 23
  3335.       (371,2296){1,1}...               % 24
  3336.       (563,2349){1,0}...               % 25
  3337.       (925,2169){1,-1}...               % 26
  3338.       (1094,1842){228,-836}...          % *27
  3339.       (1153,1333){0,-1}...               % 28
  3340.       (1091,752){-237,-939}...          % *29
  3341.       (916,394){-1,-1}...{-313,-196}          % 30
  3342.       (823,306){-337,447}...               % 31
  3343.       (675,460){-280,209}...               % *32
  3344.       (543,515){-1,0}...               % 33
  3345.       (273,402){-1,-1}...{-212,-269}          % 34
  3346.       (-12,61)--cycle);               % 35
  3347.  
  3348. n := 11;
  3349. t1 := 2;
  3350. t2 := 6;
  3351. t3 := 7;
  3352. t4 := 8;
  3353. t5 := 10;
  3354. t6 := 12;
  3355. t7 := 13;
  3356. t8 := 15;
  3357. t9 := 18;
  3358. t10 := 21;
  3359. t11 := 23;
  3360.  
  3361. adj_fill.B(11)                         % fixed x points
  3362.      ()                         % fixed y points
  3363.      ((3,3), (4,4), (6,2), (7,1))          % tied points
  3364.      ((2,9))                         % verticals
  3365.      ((5,8), (1,10))                    % horizontals
  3366.      ((1268,-8){344,369}...               % 0
  3367.       (1334,65){1,1}...               % 1
  3368.       (1488,122){1,0}...               % 2
  3369.       (1604,78){257,-167}...{450,-483}     % *3
  3370.       (1745,-45){532,612}...{532,612}     % 4
  3371.       (2277,567){244,513}...               % 5
  3372.       (2486,1725){0,1}...{-67,545}          % 6
  3373.       (2470,2050){-37,144}...{-37,144}     % 7
  3374.       (2433,2194){-238,400}...          % 8
  3375.       (2330,2334){-1,1}...               % 9
  3376.       (2038,2453){-1,0}...               % 10
  3377.       (1771,2379){-570,-286}...{-406,-360}     % *11
  3378.       (1468,2167)--                    % 12
  3379.       (1517,2053){264,315}...          % 13
  3380.       (1654,2179){263,171}...          % *14
  3381.       (1780,2224){1,0}...               % 15
  3382.       (1943,2147){1,-1}...               % 16
  3383.       (2081,1872){187,-713}...          % *17
  3384.       (2130,1434){0,-1}...               % 18
  3385.       (2079,775){-199,-1080}...{-240,-357}     % *19
  3386.       (1931,354){-402,367}...          % 20
  3387.       (1703,492){-1,0}...               % 21
  3388.       (1473,369){-284,-311}...{-187,-238}     % 22
  3389.       (1230,66)--cycle);               % 23
  3390.  
  3391. n := 6;
  3392. t1 := 2;
  3393. t2 := 6;
  3394. t3 := 8;
  3395. t4 := 9;
  3396. t5 := 11;
  3397. t6 := 15;
  3398.  
  3399. adj_fill.C()                         % fixed x points
  3400.      (1, 6)                         % fixed y points
  3401.      ((3,4), (4,3))                    % tied points
  3402.      ()                         % verticals
  3403.      ((2,5))                         % horizontals
  3404.      ((3764,2086){-7,67}...{-7,67}          % 0
  3405.       (3757,2153){-325,-160}...          % 1
  3406.       (3620,2114){-1,0}...               % 2
  3407.       (3514,2175){-206,224}...          % *3
  3408.       (3414,2338){-329,762}...          % 4
  3409.       (3307,2543){-1,1}...               % 5
  3410.       (3173,2586){-1,0}...               % 6
  3411.       (2814,2484){-740,-392}...{-1,-1}     % *7
  3412.       (2433,2194)--                    % 8
  3413.       (2470,2050){706,986}...          % 9
  3414.       (2666,2245){402,265}...          % *10
  3415.       (2872,2315){1,0}...               % 11
  3416.       (2988,2268){1,-1}...               % 12
  3417.       (3078,2091){263,-741}...          % 13
  3418.       (3178,1853){250,-294}...{247,-87}     % 14
  3419.       (3268,1797)--cycle);               % 15
  3420.  
  3421. n := 5;
  3422. t1 := 0;
  3423. t2 := 3;
  3424. t3 := 9;
  3425. t4 := 10;
  3426. t5 := 11;
  3427.  
  3428. adj_fill.D(1, 3)                    % fixed x points
  3429.      (1)                         % fixed y points
  3430.      ()                         % tied points
  3431.      ((2,5))                         % verticals
  3432.      ((2,4))                         % horizontals
  3433.      ((3769,2090){-280,-146}...          % 0
  3434.       (3338,1773){-279,-235}...          % 1
  3435.       (3304,1716){-34,-236}...          % 2
  3436.       (3282,1318){0,-1}...               % 3
  3437.       (3328,711){178,-936}...          % *4
  3438.       (3384,507){131.7,-328.7}...          % *5
  3439.       (3460,382){1,-1}...               % 6
  3440.       (3536,343){1,0}...{222,93}          % 7
  3441.       (3724,409)--                    % 8
  3442.       (3735,342){-561,-404}...{-561,-404}     % 9
  3443.       (3174,-62){-251,358}...{-251,358}     % 10
  3444.       (2923,296){0,1}...{29,280}          % 11
  3445.       (2943,1459){317,408}...{184,132}     % 12
  3446.       (3318,1845)--cycle);               % 13
  3447.  
  3448. endchar(0);
  3449.  
  3450. "FBUN";
  3451.  
  3452. charbegin( "N",2881h#, capheight*v#, baseline*v#);
  3453.  
  3454. n := 15;
  3455. t1 := 0;
  3456. t2 := 1;
  3457. t3 := 4;
  3458. t4 := 6;
  3459. t5 := 8;
  3460. t6 := 11;
  3461. t7 := 14;
  3462. t8 := 16;
  3463. t9 := 17;
  3464. t10 := 19;
  3465. t11 := 23;
  3466. t12 := 25;
  3467. t13 := 28;
  3468. t14 := 31;
  3469. t15 := 34;
  3470.  
  3471. adj_fill.A(1, 8)                    % fixed x points
  3472.      (9, 15)                         % fixed y points
  3473.      ((4,1))                         % tied points
  3474.      ((7,10), (6,11), (3,13))          % verticals
  3475.      ((5,12), (2,14))               % horizontals
  3476.      ((325,167){1,-1}...               % 0
  3477.       (728,-43){1,0}...{209,107}          % 1
  3478.       (820,-5){640,526}...{640,526}          % 2
  3479.       (1460,521){161,400}...               % 3
  3480.       (1601,1298){0,1}...{-98,434}          % 4
  3481.       (1534,1865){-56,174}...{-56,174}     % 5
  3482.       (1478,2039){-169,574}...          % 6
  3483.       (1258,2412){-1,1}...               % 7
  3484.       (840,2578){-1,0}...               % 8
  3485.       (229,2328){-1,-1}...               % 9
  3486.       (45,2092){-249,-449}...          % *10
  3487.       (-20,1879){0,-1}...               % 11
  3488.       (31,1708){198,-379}...               % *12
  3489.       (178,1500){304,-349}...          % 13
  3490.       (293,1294){0,-1}...               % 14
  3491.       (239,1158){-204,-279}...{-307,-221}     % *15
  3492.       (89,1015)--                    % 16
  3493.       (158,957){465,302}...               % 17
  3494.       (506,1243){474,533}...               % *18
  3495.       (632,1490){0,1}...               % 19
  3496.       (591,1608){-157,276}...          % *20
  3497.       (475,1766){-490,560}...          % 21
  3498.       (321,1973){-207,358}...          % *22
  3499.       (268,2124){0,1}...               % 23
  3500.       (328,2275){1,1}...               % 24
  3501.       (516,2337){1,0}...               % 25
  3502.       (874,2161){1,-1}...               % 26
  3503.       (1148,1650){370,-1281}...          % *27
  3504.       (1244,880){0,-1}...               % 28
  3505.       (1218,555){-100,-504}...          % *29
  3506.       (1144,376){-1,-1}...               % 30
  3507.       (943,272){-1,0}...               % 31
  3508.       (781,335){-1,1}...{-174,485}          % 32
  3509.       (654,534){-33,2}...{-33,2}          % 33
  3510.       (621,536)--cycle);               % 34
  3511.  
  3512. n := 9;
  3513. t1 := 5;
  3514. t2 := 9;
  3515. t3 := 14;
  3516. t4 := 16;
  3517. t5 := 17;
  3518. t6 := 19;
  3519. t7 := 23;
  3520. t8 := 24;
  3521. t9 := 27;
  3522.  
  3523. adj_fill.B(9)                         % fixed x points
  3524.      (2, 5, 7)                    % fixed y points
  3525.      ((4,1))                         % tied points
  3526.      ((1,8))                         % verticals
  3527.      ((3,6))                         % horizontals
  3528.      ((2945,404){-327,-164}...          % 0
  3529.       (2749,321){-1,0}...               % 1
  3530.       (2674,377){-307,491}...          % 2
  3531.       (2596,497){-353,624}...          % 3
  3532.       (2522,707){-135,885}...          % 4
  3533.       (2488,1288){0,1}...{146,789}          % 5
  3534.       (2528,1760){193,184}...{375,236}     % 6
  3535.       (2936,2066){-16,54}...{-16,54}          % 7
  3536.       (2920,2120){-256,-114}...          % 8
  3537.       (2758,2086){-1,0}...               % 9
  3538.       (2683,2134){-152,175}...          % *10
  3539.       (2606,2261){-246,546}...          % 11
  3540.       (2525,2450){-112,237}...          % *12
  3541.       (2494,2498){-1,1}...               % 13
  3542.       (2269,2570){-1,0}...               % 14
  3543.       (1689,2272){-1,-1}...{-902,-1073}     % 15
  3544.       (1478,2039)--                    % 16
  3545.       (1534,1881){728,1207}...          % 17
  3546.       (1811,2226){1,1}...               % 18
  3547.       (2006,2333){1,0}...               % 19
  3548.       (2125,2279){1,-1}...               % 20
  3549.       (2255,2018){298,-789}...          % 21
  3550.       (2346,1863){201,-213}...{1,0}          % *22
  3551.       (2456,1805){-407,-399}...{-273,-378}     % 23
  3552.       (2137,1435){0,-1083}...{0,-1}          % 24
  3553.       (2137,352){413,-603}...{162,-302}     % 25
  3554.       (2389,-50){475,287}...{141,107}     % 26
  3555.       (2952,332)--cycle);               % 27
  3556.  
  3557. endchar(0);
  3558.  
  3559. "FBUO";
  3560.  
  3561. %charbegin( "O",2862h#, programem*v#, baseline );
  3562. charbegin( "O",2862h#, capheight*v#, baseline ); % DEK
  3563.  
  3564. n := 7;
  3565. t1 := 1;
  3566. t2 := 4;
  3567. t3 := 6;
  3568. t4 := 7;
  3569. t5 := 9;
  3570. t6 := 12;
  3571. t7 := 13;
  3572.  
  3573. adj_fill.A(3, 7)                    % fixed x points
  3574.      ()                         % fixed y points
  3575.      ((3,1), (4,2))                    % tied points
  3576.      ((2,5), (1,6))                    % verticals
  3577.      ()                         % horizontals
  3578.      ((695,2265){-234,-152}...{-249,-443}     % 0
  3579.       (174,1659){10,-423}...               % 1
  3580.       (365,1273){343,-497}...          % 2
  3581.       (526,998){216,-477}...               % *3
  3582.       (581,796){0,-1}...               % 4
  3583.       (511,622){-1,-1}...{-469,-121}          % 5
  3584.       (215,482)--                    % 6
  3585.       (589,552){311,328}...               % 7
  3586.       (840,861){339,529}...               % *8
  3587.       (928,1081){0,1}...               % 9
  3588.       (897,1186){-230,468}...          % *10
  3589.       (698,1549){-230,446}...          % 11
  3590.       (543,1909){0,1}...{346,250}          % 12
  3591.       (745,2212)--cycle);               % 13
  3592.  
  3593. n := 13;
  3594. t1 := 0;
  3595. t2 := 2;
  3596. t3 := 6;
  3597. t4 := 9;
  3598. t5 := 12;
  3599. t6 := 13;
  3600. t7 := 15;
  3601. t8 := 16;
  3602. t9 := 18;
  3603. t10 := 21;
  3604. t11 := 25;
  3605. t12 := 27;
  3606. t13 := 28;
  3607.  
  3608. adj_fill.B(1, 12)                    % fixed x points
  3609.      (7, 13)                         % fixed y points
  3610.      ((5,2), (6,1))                    % tied points
  3611.      ((3,10))                    % verticals
  3612.      ((6,8), (4,9), (2,11))               % horizontals
  3613.      ((814,2307){52,-112}...{52,-112}     % 0
  3614.       (866,2195){417,31}...               % 1
  3615.       (1321,2191){1,0}...               % 2
  3616.       (1764,2144){716,-181}...          % *3
  3617.       (2037,2010){1,-1}...               % 4
  3618.       (2201,1711){222,-740}...          % *5
  3619.       (2259,1270){0,-1}...               % 6
  3620.       (2194,716){-251,-912}...          % *7
  3621.       (2008,358){-1,-1}...               % 8
  3622.       (1802,246){-1,0}...               % 9
  3623.       (1328,344){-793,254}...          % 10
  3624.       (784,519){-739,208}...{-371,-12}     % *11
  3625.       (589,552){-374,-70}...{-374,-70}     % 12
  3626.       (215,482){-279,-408}...{-279,-408}     % 13
  3627.       (-64,74)--                    % 14
  3628.       (0,-6){354,395}...               % 15
  3629.       (364,193){1,0}...               % 16
  3630.       (757,89){859,-314}...               % 17
  3631.       (1343,-49){1,0}...               % 18
  3632.       (1827,108){1066,605}...{261,249}     % *19
  3633.       (2409,556){320,537}...               % 20
  3634.       (2661,1458){0,1}...               % 21
  3635.       (2599,1938){-239,804}...          % *22
  3636.       (2422,2262){-1,1}...               % 23
  3637.       (2079,2456){-860,284}...          % *24
  3638.       (1562,2546){-669,37}...          % 25
  3639.       (1240,2571){-665,166}...          % 26
  3640.       (1177,2637){0,1}...{132,241}          % 27
  3641.       (1210,2748){-82,-9}...{-82,-9}          % 28
  3642.       (1128,2739)--cycle);               % 29
  3643.  
  3644. endchar(0);
  3645.  
  3646. "FBUP";
  3647.  
  3648. charbegin( "P",2864h#, capheight*v#, descender*v#);
  3649.  
  3650. n := 8;
  3651. t1 := 0;
  3652. t2 := 2;
  3653. t3 := 3;
  3654. t4 := 4;
  3655. t5 := 6;
  3656. t6 := 9;
  3657. t7 := 10;
  3658. t8 := 12;
  3659.  
  3660. adj_fill.A(1)                         % fixed x points
  3661.      (5, 8)                         % fixed y points
  3662.      ((3,1), (4,2))                    % tied points
  3663.      ((4,6))                         % verticals
  3664.      ((2,7))                         % horizontals
  3665.      ((295,86){119,207}...               % 0
  3666.       (631,585){1,1}...               % 1
  3667.       (923,722){1,0}...{513,-72}          % 2
  3668.       (1059,708){406,-571}...{406,-571}     % 3
  3669.       (1465,137){0,-1}...{80,-525}          % 4
  3670.       (1510,-461)--                    % 5
  3671.       (1059,-766){-83,54}...{-83,54}          % 6
  3672.       (976,-712){174,616}...               % 7
  3673.       (1038,-324){83,964}...{0,1}          % *8
  3674.       (1059,252){-419,203}...          % 9
  3675.       (789,342){-1,0}...               % 10
  3676.       (502,195){-1,-1}...{-175,-245}          % 11
  3677.       (343,17)--cycle);               % 12
  3678.  
  3679. n := 22;
  3680. t1 := 0;
  3681. t2 := 2;
  3682. t3 := 5;
  3683. t4 := 8;
  3684. t5 := 10;
  3685. t6 := 11;
  3686. t7 := 12;
  3687. t8 := 14;
  3688. t9 := 16;
  3689. t10 := 19;
  3690. t11 := 27;
  3691. t12 := 29;
  3692. t13 := 30;
  3693. t14 := 32;
  3694. t15 := 42;
  3695. t16 := 46;
  3696. t17 := 47;
  3697. t18 := 48;
  3698. t19 := 52;
  3699. t20 := 54;
  3700. t21 := 57;
  3701. t22 := 60;
  3702.  
  3703. adj_fill.B(1, 9, 13)                    % fixed x points
  3704.      (12, 22)                    % fixed y points
  3705.      ((5,3), (6,4), (12,4), (13,3), (17,2), (18,1))% tied points
  3706.      ((10,15), (7,18), (3,20), (2,21))     % verticals
  3707.      ((11,14), (8,16), (4,19))          % horizontals
  3708.      ((86,1028){205,153}...               % 0
  3709.       (241,1183){211,307}...               % *1
  3710.       (297,1335){0,1}...               % 2
  3711.       (153,1584){-312,410}...          % 3
  3712.       (21,1754){-306,505}...               % 4
  3713.       (0,1885){0,1}...               % 5
  3714.       (75,2121){287,505}...               % *6
  3715.       (287,2390){1,1}...               % 7
  3716.       (814,2611){1,0}...               % 8
  3717.       (1251,2416){1,-1}...               % 9
  3718.       (1412,2148){101,-322}...{53,-220}     % 10
  3719.       (1465,1928){0,-1350}...{0,-1350}     % 11
  3720.       (1465,578){227,-99}...               % 12
  3721.       (1998,354){774,-280}...          % *13
  3722.       (2239,298){1,0}...               % 14
  3723.       (2340,341){1,1}...               % 15
  3724.       (2386,482){0,1}...               % 16
  3725.       (2340,637){-179,375}...          % *17
  3726.       (2207,857){-518,738}...          % 18
  3727.       (2011,1224){0,1}...               % 19
  3728.       (2102,1419){354,476}...{355,327}     % *20
  3729.       (2365,1700){-471,86}...          % 21
  3730.       (2198,1753){-145,145}...          % 22
  3731.       (2146,1846){-37,214}...          % 23
  3732.       (2141,1993){0,1}...               % 24
  3733.       (2124,2156){-65,262}...          % *25
  3734.       (2076,2255){-1,1}...               % 26
  3735.       (1917,2323){-1,0}...               % 27
  3736.       (1619,2176){-1,-1}...{-293,-519}     % 28
  3737.       (1465,1928)--                    % 29
  3738.       (1412,2148){442,397}...          % 30
  3739.       (1861,2469){838,433}...          % *31
  3740.       (2250,2581){1,0}...               % 32
  3741.       (2431,2526){1,-1}...               % 33
  3742.       (2507,2284){141,-912}...          % 34
  3743.       (2584,2077){204,-289}...          % *35
  3744.       (2711,1995){1,0}...{327,96}          % 36
  3745.       (2826,2013){33,-61}...{33,-61}          % 37
  3746.       (2859,1952){-608,-323}...          % 38
  3747.       (2466,1694){-194,-177}...          % 39
  3748.       (2374,1529){0,-1}...               % 40
  3749.       (2492,1204){354,-575}...          % 41
  3750.       (2661,819){0,-1}...               % 42
  3751.       (2602,562){-304,-514}...          % 43
  3752.       (2343,203){-1,-1}...               % 44
  3753.       (2134,42){-403,-217}...          % *45
  3754.       (1940,-14){-1,0}...{-322,163}          % 46
  3755.       (1465,137){-406,571}...{-406,571}     % 47
  3756.       (1059,708){0,1}...               % 48
  3757.       (1054,1426){0,1}...               % 49
  3758.       (991,1900){-242,797}...          % *50
  3759.       (812,2223){-1,1}...               % 51
  3760.       (540,2358){-1,0}...               % 52
  3761.       (389,2301){-1,-1}...               % 53
  3762.       (297,2124){0,-1}...               % 54
  3763.       (344,2001){180,-296}...          % *55
  3764.       (477,1828){283,-313}...          % 56
  3765.       (673,1533){0,-1}...               % 57
  3766.       (638,1421){-136.7,-247.6}...          % *58
  3767.       (536,1285){-515,-559}...{-243,-164}     % *59
  3768.       (158,974)--cycle);               % 60
  3769.  
  3770. endchar(0);
  3771.  
  3772. "FBUQ";
  3773.  
  3774. %charbegin( "Q",2862h#, programem*v#, descender*v#);
  3775. charbegin( "Q",2862h#, capheight*v#, 1/5descender*v#); % DEK
  3776.  
  3777. n := 7;
  3778. t1 := 1;
  3779. t2 := 4;
  3780. t3 := 6;
  3781. t4 := 7;
  3782. t5 := 9;
  3783. t6 := 12;
  3784. t7 := 13;
  3785.  
  3786. adj_fill.A(3, 7)                    % fixed x points
  3787.      ()                         % fixed y points
  3788.      ((3,1), (4,2))                    % tied points
  3789.      ((2,5), (1,6))                    % verticals
  3790.      ()                         % horizontals
  3791.      ((695,2265){-234,-152}...{-249,-443}     % 0
  3792.       (174,1659){10,-423}...               % 1
  3793.       (365,1273){343,-497}...          % 2
  3794.       (526,998){216,-477}...               % *3
  3795.       (581,796){0,-1}...               % 4
  3796.       (511,622){-1,-1}...{-469,-121}          % 5
  3797.       (215,482)--                    % 6
  3798.       (589,552){311,328}...               % 7
  3799.       (840,861){339,529}...               % *8
  3800.       (928,1081){0,1}...               % 9
  3801.       (897,1186){-230,468}...          % *10
  3802.       (698,1549){-230,446}...          % 11
  3803.       (543,1909){0,1}...{346,250}          % 12
  3804.       (745,2212)--cycle);               % 13
  3805.  
  3806. n := 15;
  3807. t1 := 0;
  3808. t2 := 2;
  3809. t3 := 6;
  3810. t4 := 9;
  3811. t5 := 12;
  3812. t6 := 13;
  3813. t7 := 15;
  3814. t8 := 16;
  3815. t9 := 18;
  3816. t10 := 19;
  3817. t11 := 20;
  3818. t12 := 22;
  3819. t13 := 26;
  3820. t14 := 28;
  3821. t15 := 29;
  3822.  
  3823. adj_fill.B(1, 14)                    % fixed x points
  3824.      (7, 15)                         % fixed y points
  3825.      ((5,2), (6,1), (10,3), (11,4))          % tied points
  3826.      ((3,12))                    % verticals
  3827.      ((5,8), (4,9), (2,13))               % horizontals
  3828.      ((814,2307){52,-112}...{52,-112}     % 0
  3829.       (866,2195){417,31}...               % 1
  3830.       (1321,2191){1,0}...               % 2
  3831.       (1764,2144){716,-181}...          % *3
  3832.       (2037,2010){1,-1}...               % 4
  3833.       (2201,1711){222,-740}...          % *5
  3834.       (2259,1270){0,-1}...               % 6
  3835.       (2194,716){-251,-912}...          % *7
  3836.       (2008,358){-1,-1}...               % 8
  3837.       (1802,246){-1,0}...               % 9
  3838.       (1328,344){-793,254}...          % 10
  3839.       (784,519){-739,208}...{-371,-12}     % *11
  3840.       (589,552){-374,-70}...{-374,-70}     % 12
  3841.       (215,482){-279,-408}...{-279,-408}     % 13
  3842.       (-64,74)--                    % 14
  3843.       (13,-6){354,395}...               % 15
  3844.       (364,193){1,0}...               % 16
  3845.       (757,89){859,-314}...               % 17
  3846.       (1343,-49){1,0}...{683,371}          % 18
  3847.       (1735,63){401,252}...{401,252}          % 19
  3848.       (2136,315){496,398}...{261,249}     % 20
  3849.       (2409,556){320,537}...               % 21
  3850.       (2661,1458){0,1}...               % 22
  3851.       (2599,1938){-239,804}...          % *23
  3852.       (2422,2262){-1,1}...               % 24
  3853.       (2079,2456){-860,284}...          % *25
  3854.       (1562,2546){-669,37}...          % 26
  3855.       (1240,2571){-665,166}...          % 27
  3856.       (1177,2637){0,1}...{132,241}          % 28
  3857.       (1210,2748){-82,-9}...{-82,-9}          % 29
  3858.       (1128,2739)--cycle);               % 30
  3859.  
  3860. n := 2;
  3861. t1 := 2;
  3862. t2 := 3;
  3863.  
  3864. adj_fill.C()                         % fixed x points
  3865.      ()                         % fixed y points
  3866.      ((1,3), (2,4))                    % tied points
  3867.      ()                         % verticals
  3868.      ()                         % horizontals
  3869.      ((2776,49){-167,-103}...{-520,-261}     % 0
  3870.       (2265,-244){-413,177}...{-485,384}     % 1
  3871.       (1735,63)--                    % 2
  3872.       (2136,315){408,-436}...          % 3
  3873.       (2343,132){369,-248}...          % *4
  3874.       (2505,67){1,0}...{329,125}          % 5
  3875.       (2775,126)--cycle);               % 6
  3876.  
  3877. endchar(0);
  3878.  
  3879. "FBUR";
  3880.  
  3881. charbegin( "R",2866h#, capheight*v#, baseline*v#);
  3882.  
  3883. n := 16;
  3884. t1 := 2;
  3885. t2 := 6;
  3886. t3 := 7;
  3887. t4 := 8;
  3888. t5 := 9;
  3889. t6 := 11;
  3890. t7 := 13;
  3891. t8 := 17;
  3892. t9 := 19;
  3893. t10 := 20;
  3894. t11 := 22;
  3895. t12 := 26;
  3896. t13 := 28;
  3897. t14 := 31;
  3898. t15 := 36;
  3899. t16 := 37;
  3900.  
  3901. adj_fill.A(9, 16)                    % fixed x points
  3902.      (10)                         % fixed y points
  3903.      ((2,1), (3,2), (4,3), (5,4))          % tied points
  3904.      ((8,11), (7,12), (4,14))          % verticals
  3905.      ((6,13), (1,15))               % horizontals
  3906.      ((74,-2){1,1}...               % 0
  3907.       (218,120){251,165}...               % *1
  3908.       (325,163){1,0}...               % 2
  3909.       (439,109){273,-206}...{415,-468}     % *3
  3910.       (598,-43){694,598}...{694,598}          % 4
  3911.       (1292,555){152,300}...{70,519}          % 5
  3912.       (1530,1277){8,106}...{8,106}          % 6
  3913.       (1538,1383){14,282}...{-35,697}     % 7
  3914.       (1543,1909){-40,215}...{-40,215}     % 8
  3915.       (1503,2124){-118,349}...          % 9
  3916.       (1321,2410){-1,1}...               % 10
  3917.       (832,2610){-1,0}...               % 11
  3918.       (233,2333){-1,-1}...               % 12
  3919.       (-4,1882){0,-1}...               % 13
  3920.       (43,1732){181,-332}...               % *14
  3921.       (177,1550){300,-331}...          % 15
  3922.       (274,1418){131,-241}...          % *16
  3923.       (308,1309){0,-1}...               % 17
  3924.       (229,1145){-1,-1}...{-399,-283}     % 18
  3925.       (92,1027)--                    % 19
  3926.       (150,970){402,238}...               % 20
  3927.       (529,1233){1,1}...               % 21
  3928.       (665,1506){0,1}...               % 22
  3929.       (622,1640){-168,306}...          % *23
  3930.       (497,1812){-470,538}...          % 24
  3931.       (344,2013){-206,335}...          % *25
  3932.       (291,2147){0,1}...               % 26
  3933.       (364,2275){1,1}...               % 27
  3934.       (547,2352){1,0}...               % 28
  3935.       (883,2190){1,-1}...               % 29
  3936.       (1078,1853){263,-810}...          % *30
  3937.       (1146,1380){0,-1}...               % 31
  3938.       (1096,758){-193,-965}...          % *32
  3939.       (953,415){-1,-1}...{-198,-169}          % 33
  3940.       (835,308){-233,261}...               % 34
  3941.       (672,466){-274,212}...               % *35
  3942.       (561,520){-1,0}...{-239,-279}          % 36
  3943.       (23,55)--cycle);               % 37
  3944.  
  3945. n := 6;
  3946. t1 := 0;
  3947. t2 := 7;
  3948. t3 := 9;
  3949. t4 := 10;
  3950. t5 := 12;
  3951. t6 := 17;
  3952.  
  3953. adj_fill.B()                         % fixed x points
  3954.      ()                         % fixed y points
  3955.      ((1,5), (3,4), (4,3), (6,2))          % tied points
  3956.      ()                         % verticals
  3957.      ((2,5))                         % horizontals
  3958.      ((2200,1544){234,168}...{514,254}     % 0
  3959.       (2861,1916){-20,51}...{-20,51}          % 1
  3960.       (2841,1967){-412,-98}...          % 2
  3961.       (2725,1948){-1,0}...               % 3
  3962.       (2585,1992){-1,1}...               % 4
  3963.       (2518,2234){-65,637}...          % 5
  3964.       (2431,2511){-1,1}...               % 6
  3965.       (2218,2595){-1,0}...               % 7
  3966.       (1876,2471){-715,-471}...{-455,-550}     % *8
  3967.       (1503,2124)--                    % 9
  3968.       (1543,1909){156,386}...          % 10
  3969.       (1740,2227){428,438}...          % *11
  3970.       (1971,2347){1,0}...               % 12
  3971.       (2073,2292){1,-1}...               % 13
  3972.       (2140,2049){95,-648}...          % 14
  3973.       (2211,1813){208,-227}...{267,8}     % 15
  3974.       (2347,1756){-589,-321}...{-232,-77}     % 16
  3975.       (1538,1383)--cycle);               % 17
  3976.  
  3977. n := 9;
  3978. t1 := 1;
  3979. t2 := 4;
  3980. t3 := 6;
  3981. t4 := 7;
  3982. t5 := 8;
  3983. t6 := 9;
  3984. t7 := 13;
  3985. t8 := 14;
  3986. t9 := 15;
  3987.  
  3988. adj_fill.C(9)                         % fixed x points
  3989.      ()                         % fixed y points
  3990.      ((3,5), (4,2), (5,1))               % tied points
  3991.      ((2,7))                         % verticals
  3992.      ((3,6), (1,8))                    % horizontals
  3993.      ((2960,410){-292,-162}...          % 0
  3994.       (2827,359){-1,0}...               % 1
  3995.       (2718,383){-285,288}...          % 2
  3996.       (2598,543){-215,346}...          % 3
  3997.       (2517,774){-56,414}...{21,797}          % 4
  3998.       (2499,1417){-174,100}...{-395,136}     % 5
  3999.       (2200,1544){-662,-161}...{-662,-161}     % 6
  4000.       (1538,1383)--                    % 7
  4001.       (1530,1277){496,116}...          % 8
  4002.       (1714,1294){1,0}...               % 9
  4003.       (1856,1281){316,-74}...          % 10
  4004.       (2079,1161){1,-1}...               % 11
  4005.       (2143,974){72,-703}...{0,-1}          % *12
  4006.       (2151,458){290,-469}...{96,-228}     % 13
  4007.       (2429,-46){536,373}...{536,373}     % 14
  4008.       (2965,327)--cycle);               % 15
  4009.  
  4010. endchar(0);
  4011.  
  4012. "FBUS";
  4013.  
  4014. charbegin( "S",2868h#, capheight*v#, baseline*v#);
  4015.  
  4016. n := 19;
  4017. t1 := 0;
  4018. t2 := 2;
  4019. t3 := 5;
  4020. t4 := 8;
  4021. t5 := 10;
  4022. t6 := 12;
  4023. t7 := 14;
  4024. t8 := 16;
  4025. t9 := 18;
  4026. t10 := 19;
  4027. t11 := 22;
  4028. t12 := 25;
  4029. t13 := 27;
  4030. t14 := 29;
  4031. t15 := 31;
  4032. t16 := 33;
  4033. t17 := 35;
  4034. t18 := 37;
  4035. t19 := 39;
  4036.  
  4037. adj_fill.A(1, 10)                    % fixed x points
  4038.      (9, 17, 19)                    % fixed y points
  4039.      ()                         % tied points
  4040.      ((6,13), (4,15), (2,18))          % verticals
  4041.      ((8,11), (7,12), (5,14), (3,16))     % horizontals
  4042.      ((1280,1912){-320,-120}...          % 0
  4043.       (1187,1843){-1,-1}...               % 1
  4044.       (1092,1646){0,-1}...               % 2
  4045.       (1149,1492){1,-1}...               % 3
  4046.       (1369,1437){1,0}...               % 4
  4047.       (1808,1483){703,130}...          % 5
  4048.       (2224,1561){1,0}...               % 6
  4049.       (2592,1428){1,-1}...               % 7
  4050.       (2740,1024){0,-1}...               % 8
  4051.       (2425,371){-1,-1}...               % 9
  4052.       (1307,-55){-1,0}...               % 10
  4053.       (489,281){-1,1}...               % 11
  4054.       (156,1189){0,1}...               % 12
  4055.       (553,2150){1,1}...{663,135}          % 13
  4056.       (1453,2596){461,-201}...          % 14
  4057.       (1855,2390){535,-265}...          % 15
  4058.       (2343,2220){1,0}...               % 16
  4059.       (2550,2313){1,1}...{96,259}          % 17
  4060.       (2668,2502)--                    % 18
  4061.       (2726,2425){-186,-580}...          % 19
  4062.       (2533,2122){-1,-1}...               % 20
  4063.       (2159,1907){-638,-182}...          % 21
  4064.       (1985,1874){-1,0}...               % 22
  4065.       (1762,1958){-411,249}...          % 23
  4066.       (1351,2207){-411,249}...          % 24
  4067.       (1072,2316){-1,0}...               % 25
  4068.       (784,2190){-1,-1}...               % 26
  4069.       (531,1501){0,-1}...               % 27
  4070.       (881,538){1,-1}...               % 28
  4071.       (1676,211){1,0}...               % 29
  4072.       (2347,463){1,1}...               % 30
  4073.       (2478,794){0,1}...               % 31
  4074.       (2343,1108){-1,1}...               % 32
  4075.       (1906,1253){-1,0}...               % 33
  4076.       (1504,1190){-583,-138}...          % 34
  4077.       (1113,1108){-1,0}...               % 35
  4078.       (835,1207){-1,1}...               % 36
  4079.       (747,1444){0,1}...               % 37
  4080.       (916,1799){1,1}...{263,29}          % 38
  4081.       (1249,1949)--cycle);               % 39
  4082.  
  4083. endchar(0);
  4084.  
  4085. "FBUT";
  4086.  
  4087. charbegin( "T",2277h#, capheight*v#, baseline*v#);
  4088.  
  4089. n := 11;
  4090. t1 := 0;
  4091. t2 := 2;
  4092. t3 := 3;
  4093. t4 := 4;
  4094. t5 := 5;
  4095. t6 := 7;
  4096. t7 := 9;
  4097. t8 := 10;
  4098. t9 := 11;
  4099. t10 := 13;
  4100. t11 := 15;
  4101.  
  4102. adj_fill.A(1, 7)                    % fixed x points
  4103.      (8)                         % fixed y points
  4104.      ((3,1), (4,2))                    % tied points
  4105.      ((6,9))                         % verticals
  4106.      ((5,10), (2,11))               % horizontals
  4107.      ((2415,2510){-391,-447}...{-391,-447}     % 0
  4108.       (2024,2063){-519,-205}...          % 1
  4109.       (1735,2013){-1,0}...{-683,138}          % 2
  4110.       (1344,2061){-128,31}...{-128,31}     % 3
  4111.       (1216,2092){-703,155}...          % 4
  4112.       (515,2224){-1,0}...               % 5
  4113.       (278,2146){-1,-1}...               % 6
  4114.       (210,2005){0,-1}...{482,-316}          % 7
  4115.       (430,1678){5,-38}...{5,-38}          % 8
  4116.       (435,1640)--                    % 9
  4117.       (176,1387){-310,290}...          % 10
  4118.       (-5,1742){0,1}...               % 11
  4119.       (224,2242){1,1}...               % 12
  4120.       (956,2575){1,0}...{716,-139}          % 13
  4121.       (1537,2485){723,-136}...          % 14
  4122.       (2006,2433){1,0}...{274,231}          % 15
  4123.       (2391,2600)--cycle);               % 16
  4124.  
  4125. n := 8;
  4126. t1 := 0;
  4127. t2 := 1;
  4128. t3 := 4;
  4129. t4 := 5;
  4130. t5 := 6;
  4131. t6 := 7;
  4132. t7 := 10;
  4133. t8 := 11;
  4134.  
  4135. adj_fill.B()                         % fixed x points
  4136.      ()                         % fixed y points
  4137.      ((1,4), (4,2), (5,1), (8,3))          % tied points
  4138.      ((3,6), (2,7))                    % verticals
  4139.      ()                         % horizontals
  4140.      ((1170,529){1,1}...               % 0
  4141.       (1266,741){0,1}...               % 1
  4142.       (1042,1080){-619,695}...          % 2
  4143.       (875,1291){-253,378}...{-148,477}     % *3
  4144.       (789,1458){137,313}...{1,1}          % 4
  4145.       (1216,2092)--                    % 5
  4146.       (1344,2061){-556,-318}...          % 6
  4147.       (1160,1737){0,-1}...               % 7
  4148.       (1213,1573){205,-370}...          % *8
  4149.       (1365,1367){539,-601}...          % 9
  4150.       (1621,975){0,-1}...{-1,-1}          % 10
  4151.       (1276,498)--cycle);               % 11
  4152.  
  4153. n := 8;
  4154. t1 := 0;
  4155. t2 := 2;
  4156. t3 := 3;
  4157. t4 := 4;
  4158. t5 := 5;
  4159. t6 := 7;
  4160. t7 := 9;
  4161. t8 := 11;
  4162.  
  4163. adj_fill.C()                         % fixed x points
  4164.      (1, 6)                         % fixed y points
  4165.      ((3,3), (4,4))                    % tied points
  4166.      ()                         % verticals
  4167.      ((5,7), (2,8))                    % horizontals
  4168.      ((2156,544){-309,-233}...          % 0
  4169.       (1914,388){-413,-210}...          % *1
  4170.       (1743,334){-1,0}...{-478,224}          % 2
  4171.       (1276,498){-106,31}...{-106,31}     % 3
  4172.       (1170,529){-361,108}...{-1,0}          % 4
  4173.       (891,558){-321,-181}...{-384,-400}     % 5
  4174.       (292,72)--                    % 6
  4175.       (309,-9){523,460}...               % 7
  4176.       (604,197){303,128}...               % 8
  4177.       (765,216){1,0}...               % 9
  4178.       (1151,88){642,-309}...{1,0}          % 10
  4179.       (1621,-50){373,284}...{220,235}     % 11
  4180.       (2190,457)--cycle);               % 12
  4181.  
  4182. endchar(0);
  4183.  
  4184. "FBUU";
  4185.  
  4186. charbegin( "U",2467h#, capheight*v#, baseline*v#);
  4187.  
  4188. n := 7;
  4189. t1 := 0;
  4190. t2 := 2;
  4191. t3 := 5;
  4192. t4 := 9;
  4193. t5 := 11;
  4194. t6 := 13.48;
  4195. t7 := 15;
  4196.  
  4197. adj_fill.A(1, 4)                    % fixed x points
  4198.      ()                         % fixed y points
  4199.      ((1,2), (7,1))                    % tied points
  4200.      ((3,5), (2,6))                    % verticals
  4201.      ()                         % horizontals
  4202.      ((283,490){308,76}...               % 0
  4203.       (638,661){1,1}...               % 1
  4204.       (760,961){0,1}...               % 2
  4205.       (713,1183){-185,513}...          % *3
  4206.       (575,1474){-262,464}...          % 4
  4207.       (388,1923){0,1}...{71,376}          % 5
  4208.       (394,2007){162,266}...               % 6
  4209.       (720,2427){1,1}...{298,198}          % 7
  4210.       (944,2608)--                    % 8
  4211.       (1016,2549){-379,-278}...          % 9
  4212.       (873,2425){-1,-1}...               % 10
  4213.       (778,2229){0,-1}...               % 11
  4214.       (887,1834){304,-637}...          % 12
  4215.       (1046,1361){150,-854}...{-99,-329}     % *13
  4216.       (1037,980){-365,-468}...{-365,-468}     % 14
  4217.       (672,512)--cycle);               % 15
  4218.  
  4219. n := 8;
  4220. t1 := 0;
  4221. t2 := 1;
  4222. t3 := 3;
  4223. t4 := 4;
  4224. t5 := 6;
  4225. t6 := 8;
  4226. t7 := 10;
  4227. t8 := 12;
  4228.  
  4229. adj_fill.B()                         % fixed x points
  4230.      (5)                         % fixed y points
  4231.      ((1,4), (3,1), (4,2), (8,3))          % tied points
  4232.      ()                         % verticals
  4233.      ((4,6), (2,7))                    % horizontals
  4234.      ((1667,426){-1,-1}...               % 0
  4235.       (1426,292){-1,0}...               % 1
  4236.       (1072,382){-669,241}...{-420,77}     % 2
  4237.       (672,512){-389,-22}...{-389,-22}     % 3
  4238.       (283,490){-332,-401}...{-332,-401}     % 4
  4239.       (-49,89)--                    % 5
  4240.       (16,28){278,303}...               % 6
  4241.       (163,156){273,173}...               % *7
  4242.       (289,201){1,0}...               % 8
  4243.       (806,45){666,-287}...               % 9
  4244.       (1211,-66){1,0}...{224,84}          % 10
  4245.       (1384,-17){397,389}...{397,389}     % 11
  4246.       (1781,372)--cycle);               % 12
  4247.  
  4248. n := 6;
  4249. t1 := 0;
  4250. t2 := 2;
  4251. t3 := 3;
  4252. t4 := 5;
  4253. t5 := 8;
  4254. t6 := 11;
  4255.  
  4256. adj_fill.C(1, 5)                    % fixed x points
  4257.      ()                         % fixed y points
  4258.      ((2,3), (3,4))                    % tied points
  4259.      ((4,6))                         % verticals
  4260.      ()                         % horizontals
  4261.      ((2630,328){-626,-413}...{-626,-413}     % 0
  4262.       (2004,-85){-223,457}...{-223,457}     % 1
  4263.       (1781,372){-114,54}...{-114,54}     % 2
  4264.       (1667,426){1,1}...               % 3
  4265.       (1741,602){25,551}...               % 4
  4266.       (1763,1345){0,1}...{-58,706}          % 5
  4267.       (1722,2254){306,130}...{427,298}     % 6
  4268.       (2308,2594)--                    % 7
  4269.       (2363,2539){-361,-347}...          % 8
  4270.       (2283,2450){-484,-591}...          % 9
  4271.       (2165,2106){-89,-872}...          % 10
  4272.       (2140,1465){0,-1}...{25,-383}          % 11
  4273.       (2155,794){5,-52}...               % 12
  4274.       (2160,742){56,-767}...               % 13
  4275.       (2206,607){264,-633}...          % 14
  4276.       (2313,392){228,-390}...          % 15
  4277.       (2418,334){1,0}...{409,170}          % 16
  4278.       (2620,400)--cycle);               % 17
  4279.  
  4280. endchar(0);
  4281.  
  4282. "FBUV";
  4283.  
  4284. charbegin( "V",2878h#, capheight*v#, baseline*v#);
  4285.  
  4286. n := 14;
  4287. t1 := 0;
  4288. t2 := 2;
  4289. t3 := 3;
  4290. t4 := 4;
  4291. t5 := 6;
  4292. t6 := 9;
  4293. t7 := 11;
  4294. t8 := 13;
  4295. t9 := 14;
  4296. t10 := 16;
  4297. t11 := 19;
  4298. t12 := 21;
  4299. t13 := 24;
  4300. t14 := 27;
  4301.  
  4302. adj_fill.A(8, 14)                    % fixed x points
  4303.      (4, 9, 14)                    % fixed y points
  4304.      ((1,4), (2,1), (3,2), (14,3))          % tied points
  4305.      ((7,10), (6,11), (2,13))          % verticals
  4306.      ((5,12))                    % horizontals
  4307.      ((982,703){366,326}...{366,326}          % 0
  4308.       (1348,1029){149,321}...{-41,644}     % 1
  4309.       (1482,1893){-37,190}...          % 2
  4310.       (1445,2083){-.1911,-.01844}...          % 3
  4311.       (1445,2068){-131,682}...          % 4
  4312.       (1244,2450){-1,1}...               % 5
  4313.       (850,2601){-1,0}...               % 6
  4314.       (252,2354){-1,-1}...               % 7
  4315.       (5,2008){-165,-316}...               % 8
  4316.       (-21,1884){0,-1}...               % 9
  4317.       (153,1597){388,-478}...          % 10
  4318.       (317,1338){0,-1}...               % 11
  4319.       (229,1182){-1,-1}...{-185,-148}     % 12
  4320.       (85,1056)--                    % 13
  4321.       (146,988){334,218}...               % 14
  4322.       (565,1310){1,1}...               % 15
  4323.       (674,1549){0,1}...               % 16
  4324.       (481,1834){-384,411}...          % 17
  4325.       (356,2003){-169,315}...          % *18
  4326.       (312,2149){0,1}...               % 19
  4327.       (398,2304){1,1}...               % 20
  4328.       (566,2369){1,0}...               % 21
  4329.       (856,2232){1,-1}...               % 22
  4330.       (1025,1922){228,-770}...          % *23
  4331.       (1084,1462){0,-1}...               % 24
  4332.       (1045,1051){-150,-652}...          % *25
  4333.       (934,810){-1,-1}...{-238,-66}          % 26
  4334.       (694,664)--cycle);               % 27
  4335.  
  4336. n := 14;
  4337. t1 := 0;
  4338. t2 := 2;
  4339. t3 := 6;
  4340. t4 := 11;
  4341. t5 := 16;
  4342. t6 := 19;
  4343. t7 := 21;
  4344. t8 := 22;
  4345. t9 := 24;
  4346. t10 := 26;
  4347. t11 := 29;
  4348. t12 := 33;
  4349. t13 := 35;
  4350. t14 := 36;
  4351.  
  4352. adj_fill.B()                         % fixed x points
  4353.      (1, 6, 9)                    % fixed y points
  4354.      ((7,2), (8,1), (13,4), (14,3))          % tied points
  4355.      ((4,11))                    % verticals
  4356.      ((5,10), (2,13), (3,12))          % horizontals
  4357.      ((212,148){419,370}...               % 0
  4358.       (454,319){446,231}...               % *1
  4359.       (658,379){1,0}...               % 2
  4360.       (870,329){527,-196}...               % *3
  4361.       (1185,183){521,-277}...          % 4
  4362.       (1550,12){603,-229}...               % *5
  4363.       (1788,-46){1,0}...               % 6
  4364.       (2230,162){469,409}...               % 7
  4365.       (2462,373){387,377}...               % 8
  4366.       (2641,837){0,1}...               % 9
  4367.       (2618,1089){-54,352}...          % 10
  4368.       (2564,1441){-54,352}...          % 11
  4369.       (2551,1740){0,1}...               % 12
  4370.       (2775,2167){1,1}...{367,261}          % 13
  4371.       (2928,2296){-2,72}...{-2,72}          % 14
  4372.       (2926,2368){-287,-115}...          % 15
  4373.       (2732,2337){-1,0}...               % 16
  4374.       (2530,2444){-459,315}...          % 17
  4375.       (2333,2556){-353,150}...          % *18
  4376.       (2177,2594){-1,0}...               % 19
  4377.       (1883,2464){-732,-511}...{-1,-1}     % *20
  4378.       (1445,2083)--                    % 21
  4379.       (1482,1893){272,420}...          % 22
  4380.       (1702,2172){394,380}...          % *23
  4381.       (1876,2273){1,0}...               % 24
  4382.       (2168,2140){488,-334}...{1,0}          % 25
  4383.       (2510,2009){-389,-413}...          % 26
  4384.       (2211,1664){-197,-273}...          % 27
  4385.       (2172,1347){0,-1}...               % 28
  4386.       (2186,1119){72,-477}...          % 29
  4387.       (2258,642){72,-477}...               % 30
  4388.       (2268,432){-31,-331}...          % *31
  4389.       (2227,311){-1,-1}...               % 32
  4390.       (2113,267){-1,0}...               % 33
  4391.       (1649,431){-695,345}...{-398,14}     % 34
  4392.       (982,703){-288,-39}...{-288,-39}     % 35
  4393.       (694,664){-402,-324}...{-1,-1}          % 36
  4394.       (174,215)--cycle);               % 37
  4395.  
  4396. endchar(0);
  4397.  
  4398. "FBUW";
  4399.  
  4400. charbegin( "W",3673h#, capheight*v#, baseline*v#);
  4401.  
  4402. n := 14;
  4403. t1 := 0;
  4404. t2 := 2;
  4405. t3 := 3;
  4406. t4 := 5;
  4407. t5 := 8;
  4408. t6 := 12;
  4409. t7 := 14;
  4410. t8 := 15;
  4411. t9 := 17;
  4412. t10 := 21;
  4413. t11 := 23;
  4414. t12 := 25;
  4415. t13 := 27.88;
  4416. t14 := 28;
  4417.  
  4418. adj_fill.A(7, 14)                    % fixed x points
  4419.      (1, 8, 13)                    % fixed y points
  4420.      ((1,4), (2,1), (3,2), (14,3))          % tied points
  4421.      ((6,9), (5,10), (2,12))               % verticals
  4422.      ((4,11))                    % horizontals
  4423.      ((840,545){425,279}...{425,279}          % 0
  4424.       (1265,824){259,348}...{-37,683}     % 1
  4425.       (1538,1941){-38,177}...{-38,177}     % 2
  4426.       (1500,2118){-217,609}...          % 3
  4427.       (1336,2388){-1,1}...               % 4
  4428.       (864,2584){-1,0}...               % 5
  4429.       (264,2356){-1,-1}...               % 6
  4430.       (55,2100){-282,-463}...          % *7
  4431.       (-18,1893){0,-1}...               % 8
  4432.       (35,1745){205,-351}...               % *9
  4433.       (187,1542){419,-476}...          % 10
  4434.       (283,1411){129,-233}...          % *11
  4435.       (316,1309){0,-1}...               % 12
  4436.       (235,1138){-1,-1}...{-317,-224}     % 13
  4437.       (98,1025)--                    % 14
  4438.       (179,970){362,226}...               % 15
  4439.       (523,1238){1,1}...               % 16
  4440.       (640,1515){0,1}...               % 17
  4441.       (592,1649){-187,319}...          % *18
  4442.       (453,1834){-382,432}...          % 19
  4443.       (320,2008){-180,294}...          % *20
  4444.       (273,2128){0,1}...               % 21
  4445.       (347,2276){1,1}...               % 22
  4446.       (587,2342){1,0}...               % 23
  4447.       (910,2200){1,-1}...               % 24
  4448.       (1136,1518){0,-1}...               % 25
  4449.       (1078,1042){-223,-788}...          % *26
  4450.       (913,730){-1,-1}...{-568,79}          % 27
  4451.       (530,578)--cycle);               % 28
  4452.  
  4453. n := 13;
  4454. t1 := 0;
  4455. t2 := 2;
  4456. t3 := 5;
  4457. t4 := 6;
  4458. t5 := 7;
  4459. t6 := 9;
  4460. t7 := 10;
  4461. t8 := 12;
  4462. t9 := 13;
  4463. t10 := 17;
  4464. t11 := 21;
  4465. t12 := 23;
  4466. t13 := 24;
  4467.  
  4468. adj_fill.B()                         % fixed x points
  4469.      (1)                         % fixed y points
  4470.      ((4,5), (5,6), (6,7), (7,8), (8,2), (9,1), (12,4), (13,3))% tied points
  4471.      ((6,10))                    % verticals
  4472.      ((3,11), (2,13))               % horizontals
  4473.      ((48,8){1,1}...                    % 0
  4474.       (251,169){381,217}...               % *1
  4475.       (429,225){1,0}...               % 2
  4476.       (739,107){530,-300}...               % 3
  4477.       (1195,-50){1,0}...{591,66}          % 4
  4478.       (1317,-36){278,207}...{572,315}     % 5
  4479.       (1699,205){401,359}...{401,359}     % 6
  4480.       (2100,564){211,273}...{211,273}     % 7
  4481.       (2311,837){98,248}...{-91,482}          % 8
  4482.       (2414,2003){-37,131}...{-37,131}     % 9
  4483.       (2377,2134){-259,453}...{-259,453}     % 10
  4484.       (2118,2587){-201,-143}...{-476,-395}     % 11
  4485.       (1500,2118)--                    % 12
  4486.       (1538,1941){310,710}...{251,219}     % 13
  4487.       (1760,2214){275,-169}...          % 14
  4488.       (1917,2097){1,-1}...               % 15
  4489.       (2047,1819){175,-747}...          % *16
  4490.       (2092,1350){0,-1}...               % 17
  4491.       (2032,783){-231,-916}...{-1,-1}     % *18
  4492.       (1861,434){-338,-164}...          % 19
  4493.       (1589,289){-338,-164}...          % *20
  4494.       (1523,270){-1,0}...               % 21
  4495.       (1151,391){-543,278}...{-507,206}     % 22
  4496.       (840,545){-310,33}...{-310,33}          % 23
  4497.       (530,578){-373,-314}...{-221,-246}     % 24
  4498.       (7,90)--cycle);               % 25
  4499.  
  4500. n := 13;
  4501. t1 := 0;
  4502. t2 := 2;
  4503. t3 := 7;
  4504. t4 := 11;
  4505. t5 := 14;
  4506. t6 := 16;
  4507. t7 := 17;
  4508. t8 := 19;
  4509. t9 := 22;
  4510. t10 := 23;
  4511. t11 := 26;
  4512. t12 := 29;
  4513. t13 := 31;
  4514.  
  4515. adj_fill.C(10)                         % fixed x points
  4516.      ()                         % fixed y points
  4517.      ((1,5), (6,8), (7,7), (13,6))          % tied points
  4518.      ((3,11))                    % verticals
  4519.      ((5,8), (4,9), (2,12))               % horizontals
  4520.      ((1699,205){328,-45}...               % 0
  4521.       (2254,50){841,-326}...               % 1
  4522.       (2599,-42){1,0}...{568,219}          % 2
  4523.       (2828,5){567,438}...{567,438}          % 3
  4524.       (3395,443){284,366}...               % 4
  4525.       (3459,598){86,394}...               % *5
  4526.       (3481,837){0,1}...               % 6
  4527.       (3415,1310){-163,770}...          % 7
  4528.       (3360,1654){0,1}...               % 8
  4529.       (3471,1930){428,651}...{1,1}          % *9
  4530.       (3788,2305){-5,62}...{-5,62}          % 10
  4531.       (3783,2367){-427,-128}...          % 11
  4532.       (3663,2341){-1,0}...               % 12
  4533.       (3355,2461){-631,407}...          % 13
  4534.       (3038,2585){-1,0}...               % 14
  4535.       (2758,2468){-661,-451}...{-466,-483}     % *15
  4536.       (2377,2134)--                    % 16
  4537.       (2414,2003){284,389}...          % 17
  4538.       (2582,2171){338,228}...          % *18
  4539.       (2752,2231){1,0}...               % 19
  4540.       (3031,2128){583,-320}...          % 20
  4541.       (3215,2028){256,-122}...          % *21
  4542.       (3287,2006){1,0}...{277,144}          % 22
  4543.       (3378,2017){-487,-389}...          % 23
  4544.       (3147,1785){-178,-198}...{-195,-265}     % 24
  4545.       (2991,1580){-158,-608}...          % 25
  4546.       (3043,974){168,-918}...          % 26
  4547.       (3106,503){0,-1}...               % 27
  4548.       (3067,325){-1,-1}...               % 28
  4549.       (2959,273){-1,0}...               % 29
  4550.       (2683,340){-763,324}...{-305,75}     % 30
  4551.       (2100,564)--cycle);               % 31
  4552.  
  4553. endchar(0);
  4554.  
  4555. "FBUX";
  4556.  
  4557. charbegin( "X",2463h#, capheight*v#, baseline*v#);
  4558.  
  4559. n := 14;
  4560. t1 := 1;
  4561. t2 := 3;
  4562. t3 := 6;
  4563. t4 := 7;
  4564. t5 := 9;
  4565. t6 := 10;
  4566. t7 := 11;
  4567. t8 := 13;
  4568. t9 := 16;
  4569. t10 := 17;
  4570. t11 := 18;
  4571. t12 := 19;
  4572. t13 := 20;
  4573. t14 := 23;
  4574.  
  4575. adj_fill.A(6, 11)                    % fixed x points
  4576.      (7)                         % fixed y points
  4577.      ((3,1), (4,2), (12,3), (13,4))          % tied points
  4578.      ((3,9))                         % verticals
  4579.      ((5,8), (10,11), (1,14), (2,3))          % horizontals
  4580.      ((2409,402){-379,-180}...          % 0
  4581.       (2054,281){-1,0}...               % 1
  4582.       (1689,423){-1,1}...{0,1}          % 2
  4583.       (1418,1224){1,0}...{422,-1}          % 3
  4584.       (1840,1223){203,205}...{203,205}     % 4
  4585.       (2043,1428){-174,-15}...{-1,0}          % 5
  4586.       (1432,1415){-39,589}...{-39,589}     % 6
  4587.       (1393,2004){-44,390}...          % 7
  4588.       (1188,2397){-1,1}...{-456,52}          % 8
  4589.       (754,2575){-225,-204}...{-384,-459}     % 9
  4590.       (209,2013)--                    % 10
  4591.       (267,1938){128,140}...               % 11
  4592.       (395,2078){1,1}...               % 12
  4593.       (695,2210){1,0}...               % 13
  4594.       (937,2087){1,-1}...               % 14
  4595.       (1047,1840){149,-674}...{0,-1}          % *15
  4596.       (1086,1413){-1,0}...{-210,13}          % 16
  4597.       (627,1421){-203,-207}...{-203,-207}     % 17
  4598.       (424,1214){542,37}...{1,0}          % 18
  4599.       (1079,1225){105,-650}...{105,-650}     % 19
  4600.       (1184,575){231,-680}...          % 20
  4601.       (1312,265){258,-503}...          % *21
  4602.       (1442,72){1,-1}...               % 22
  4603.       (1783,-70){1,0}...{279,57}          % 23
  4604.       (1985,-31){390,342}...{192,135}     % 24
  4605.       (2400,306)--cycle);               % 25
  4606.  
  4607. n := 5;
  4608. t1 := 0;
  4609. t2 := 2;
  4610. t3 := 6;
  4611. t4 := 7;
  4612. t5 := 9;
  4613.  
  4614. adj_fill.B()                         % fixed x points
  4615.      (1)                         % fixed y points
  4616.      ((3,3), (4,4))                    % tied points
  4617.      ()                         % verticals
  4618.      ((2,5))                         % horizontals
  4619.      ((254,437){273,-276}...               % 0
  4620.       (435,293){341,-194}...               % *1
  4621.       (595,243){1,0}...               % 2
  4622.       (722,286){279,166}...               % *3
  4623.       (874,409){1,1}...               % 4
  4624.       (1026,720){205,816}...{0,1}          % *5
  4625.       (1079,1225)--                    % 6
  4626.       (1184,575){-440,-476}...          % 7
  4627.       (577,35){-394,-250}...               % 8
  4628.       (378,-60){-1,0}...{-298,213}          % 9
  4629.       (1,138)--cycle);               % 10
  4630.  
  4631. n := 2;
  4632. t1 := 5;
  4633. t2 := 6;
  4634.  
  4635. adj_fill.C()                         % fixed x points
  4636.      ()                         % fixed y points
  4637.      ((1,2), (2,1))                    % tied points
  4638.      ()                         % verticals
  4639.      ()                         % horizontals
  4640.      ((2513,2261){-241,-69}...          % 0
  4641.       (2391,2244){-1,0}...               % 1
  4642.       (2268,2279){-1,1}...{-198,495}          % 2
  4643.       (2091,2583){-353,-135}...          % 3
  4644.       (1657,2310){-1,-1}...{-313,-447}     % 4
  4645.       (1393,2004)--                    % 5
  4646.       (1432,1415){0,1}...{159,186}          % 6
  4647.       (1767,2284){305,-529}...{330,-143}     % 7
  4648.       (2106,1960){411,237}...{411,237}     % 8
  4649.       (2517,2197)--cycle);               % 9
  4650.  
  4651. endchar(0);
  4652.  
  4653. "FBUY";
  4654.  
  4655. charbegin( "Y",2884h#, capheight*v#, descender*v#);
  4656.  
  4657. n := 14;
  4658. t1 := 0;
  4659. t2 := 2;
  4660. t3 := 4;
  4661. t4 := 6;
  4662. t5 := 9;
  4663. t6 := 12;
  4664. t7 := 14;
  4665. t8 := 15;
  4666. t9 := 17;
  4667. t10 := 20;
  4668. t11 := 22;
  4669. t12 := 24;
  4670. t13 := 26.88;
  4671. t14 := 27;
  4672.  
  4673. adj_fill.A(7, 14)                    % fixed x points
  4674.      (1, 8, 13)                    % fixed y points
  4675.      ((1,3), (3,1), (14,2))               % tied points
  4676.      ((6,9), (5,10), (2,12))               % verticals
  4677.      ((4,11))                    % horizontals
  4678.      ((891,550){86,81}...{395,276}          % 0
  4679.       (1310,891){185,304}...               % 1
  4680.       (1499,1709){0,1}...{-117,630}          % 2
  4681.       (1487,1916){-39,149}...{-39,149}     % 3
  4682.       (1448,2065){-231,670}...          % 4
  4683.       (1271,2419){-1,1}...               % 5
  4684.       (878,2586){-1,0}...               % 6
  4685.       (253,2334){-1,-1}...               % 7
  4686.       (69,2100){-248,-442}...          % *8
  4687.       (5,1892){0,-1}...               % 9
  4688.       (52,1746){181,-328}...               % *10
  4689.       (186,1564){379,-423}...          % 11
  4690.       (330,1341){0,-1}...               % 12
  4691.       (252,1161){-1,-1}...{-382,-248}     % 13
  4692.       (100,1045)--                    % 14
  4693.       (178,974){424,291}...               % 15
  4694.       (570,1308){278,267}...               % 16
  4695.       (692,1537){0,1}...               % 17
  4696.       (515,1812){-393,437}...          % 18
  4697.       (376,1997){-187,327}...          % *19
  4698.       (328,2139){0,1}...               % 20
  4699.       (403,2304){1,1}...               % 21
  4700.       (580,2360){1,0}...               % 22
  4701.       (848,2225){1,-1}...               % 23
  4702.       (1100,1534){0,-1}...               % 24
  4703.       (1059,1018){-157,-799}...          % *25
  4704.       (943,735){-1,-1}...{-499,45}          % 26
  4705.       (504,591)--cycle);               % 27
  4706.  
  4707. n := 7;
  4708. t1 := 0;
  4709. t2 := 2;
  4710. t3 := 4;
  4711. t4 := 5;
  4712. t5 := 7;
  4713. t6 := 9;
  4714. t7 := 11;
  4715.  
  4716. adj_fill.B()                         % fixed x points
  4717.      (1, 5)                         % fixed y points
  4718.      ((3,3), (4,2))                    % tied points
  4719.      ()                         % verticals
  4720.      ((4,6), (2,7))                    % horizontals
  4721.      ((1793,567){-251,-225}...          % 0
  4722.       (1587,408){-350,-215}...          % *1
  4723.       (1443,352){-1,0}...               % 2
  4724.       (1179,426){-709,326}...{-464,89}     % 3
  4725.       (891,550){-387,41}...{-387,41}          % 4
  4726.       (504,591){-275,-228}...{-404,-478}     % 5
  4727.       (5,68)--                    % 6
  4728.       (64,-3){414,442}...               % 7
  4729.       (289,181){433,249}...               % *8
  4730.       (497,246){1,0}...               % 9
  4731.       (776,151){801,-388}...{322,-56}     % 10
  4732.       (1299,-40){400,256}...{155,216}     % 11
  4733.       (1814,489)--cycle);               % 12
  4734.  
  4735. n := 10;
  4736. t1 := 0;
  4737. t2 := 1;
  4738. t3 := 4;
  4739. t4 := 6;
  4740. t5 := 8;
  4741. t6 := 9;
  4742. t7 := 11;
  4743. t8 := 14;
  4744. t9 := 17;
  4745. t10 := 20;
  4746.  
  4747. adj_fill.C(1)                         % fixed x points
  4748.      (6, 10)                         % fixed y points
  4749.      ((5,1))                         % tied points
  4750.      ((3,8))                         % verticals
  4751.      ((4,7), (2,9))                    % horizontals
  4752.      ((702,-534){1,-1}...               % 0
  4753.       (1216,-732){1,0}...               % 1
  4754.       (1826,-543){1182,716}...{335,435}     % *2
  4755.       (2398,-16){182,440}...               % 3
  4756.       (2655,1313){0,1}...{-81,707}          % 4
  4757.       (2582,2257){-271,151}...{-252,333}     % 5
  4758.       (2171,2608){-252,-130}...          % 6
  4759.       (1853,2401){-723,-543}...{-446,-399}     % *7
  4760.       (1448,2065)--                    % 8
  4761.       (1487,1913){420,644}...          % 9
  4762.       (1653,2093){342,245}...          % *10
  4763.       (1829,2158){1,0}...               % 11
  4764.       (2078,2045){1,-1}...               % 12
  4765.       (2205,1726){172,-910}...          % *13
  4766.       (2250,1135){0,-1}...               % 14
  4767.       (2152,209){-378,-1496}...          % *15
  4768.       (1872,-361){-1,-1}...               % 16
  4769.       (1365,-554){-1,0}...               % 17
  4770.       (1042,-441){-1,1}...{-130,394}          % 18
  4771.       (905,-183){-45,8}...{-45,8}          % 19
  4772.       (860,-175)--cycle);               % 20
  4773.  
  4774. endchar(0);
  4775.  
  4776. "FBUZ";
  4777.  
  4778. %charbegin( "Z",2029h#, capheight*v#, depthy*v#);
  4779. charbegin( "Z",2029h#, capheight*v#, 2/3descender*v#); % DEK
  4780.  
  4781. n := 10;
  4782. t1 := 0;
  4783. t2 := 1;
  4784. t3 := 2;
  4785. t4 := 5;
  4786. t5 := 7;
  4787. t6 := 9;
  4788. t7 := 10;
  4789. t8 := 12;
  4790. t9 := 14;
  4791. t10 := 17;
  4792.  
  4793. adj_fill.A(1, 6)                    % fixed x points
  4794.      (7)                         % fixed y points
  4795.      ((2,1), (3,2))                    % tied points
  4796.      ((4,9))                         % verticals
  4797.      ((5,8), (1,10))                    % horizontals
  4798.      ((654,1398){36,-6}...{36,-6}          % 0
  4799.       (690,1392){354,20}...               % 1
  4800.       (1044,1412){1.051,1.055}...{1,19}     % 2
  4801.       (1045,1431){204,30}...               % 3
  4802.       (1450,1668){1,1}...               % 4
  4803.       (1621,2121){0,1}...               % 5
  4804.       (1513,2411){-1,1}...               % 6
  4805.       (1006,2568){-1,0}...{-396,-85}          % 7
  4806.       (653,2528){-215,-174}...{-341,-362}     % 8
  4807.       (191,2096)--                    % 9
  4808.       (249,2003){229,264}...               % 10
  4809.       (379,2130){1,1}...               % 11
  4810.       (782,2289){1,0}...               % 12
  4811.       (1096,2172){1,-1}...               % 13
  4812.       (1199,1914){0,-1}...               % 14
  4813.       (1088,1570){-1,-1}...               % 15
  4814.       (940,1497){-385,-99}...{-1,0}          % *16
  4815.       (703,1471)--cycle);               % 17
  4816.  
  4817. n := 12;
  4818. t1 := 1;
  4819. t2 := 3;
  4820. t3 := 5;
  4821. t4 := 7;
  4822. t5 := 9;
  4823. t6 := 10;
  4824. t7 := 12;
  4825. t8 := 16;
  4826. t9 := 19;
  4827. t10 := 22;
  4828. t11 := 24;
  4829. t12 := 26;
  4830.  
  4831. adj_fill.B(12)                         % fixed x points
  4832.      ()                         % fixed y points
  4833.      ((5,2), (6,1))                    % tied points
  4834.      ((4,8), (2,10))                    % verticals
  4835.      ((6,7), (3,9), (1,11))               % horizontals
  4836.      ((-98,256){353,199}...               % 0
  4837.       (79,317){1,0}...               % 1
  4838.       (210,270){1,-1}...               % 2
  4839.       (268,18){93,-878}...               % 3
  4840.       (419,-366){1,-1}...               % 4
  4841.       (791,-486){1,0}...               % 5
  4842.       (1569,-137){1,1}...               % 6
  4843.       (1857,662){0,1}...               % 7
  4844.       (1654,1218){-1,1}...{-1,0}          % 8
  4845.       (1044,1412){-354,-20}...{-354,-20}     % 9
  4846.       (690,1392)--                    % 10
  4847.       (551,1138){32,-31}...{32,-31}          % 11
  4848.       (583,1107){941,143}...               % 12
  4849.       (1011,1121){690,-89}...          % *13
  4850.       (1273,1018){1,-1}...               % 14
  4851.       (1397,793){168,-555}...          % *15
  4852.       (1441,463){0,-1}...               % 16
  4853.       (1392,77){-188,-644}...          % *17
  4854.       (1253,-181){-1,-1}...               % 18
  4855.       (991,-317){-1,0}...               % 19
  4856.       (762,-233){-1,1}...               % 20
  4857.       (687,-87){-102,372}...               % *21
  4858.       (660,139){0,1}...               % 22
  4859.       (605,522){-1,1}...               % 23
  4860.       (407,594){-1,0}...               % 24
  4861.       (184,529){-522,-254}...{-246,-184}     % *25
  4862.       (-115,340)--cycle);               % 26
  4863.  
  4864. endchar(0);
  4865.  
  4866. % PUNCTUATION, note: this is medium punctuation, duplicate of that in eufmch.
  4867. set_stem_round(155,157,160,189,197,193);
  4868. initrot:=identity;
  4869. more_side(0); % DEK
  4870.  
  4871. "fmexclamationpoint";
  4872.  
  4873. %charbegin( 33, 795h#, ascender*v#, baseline );
  4874. charbegin( 33,1095h#, ascender*v#, baseline ); % DEK
  4875.  
  4876. n := 6;
  4877. t1 := 0;
  4878. t2 := 3;
  4879. t3 := 5;
  4880. t4 := 6;
  4881. t5 := 8;
  4882. t6 := 10;
  4883.  
  4884. adj_fill.A()                         % fixed x points
  4885.      ()                         % fixed y points
  4886.      ((1,1), (6,1))                    % tied points
  4887.      ((2,5), (3,4))                    % verticals
  4888.      ()                         % horizontals
  4889.      ((413,2553){-1,0}...               % 0
  4890.       (286,2518){-318,-227}...          % 1
  4891.       (243,2444){-59,-206}...          % *2
  4892.       (227,2312){0,-1}...               % 3
  4893.       (238,2097){101,-1416}...{101,-1416}     % 4
  4894.       (339,681)--                    % 5
  4895.       (398,690){133,1370}...               % 6
  4896.       (531,2060){133,1370}...          % 7
  4897.       (551,2384){0,1}...               % 8
  4898.       (503,2522){-234,213}...{-1,0}          % 9
  4899.       (413,2553)--cycle);               % 10
  4900.  
  4901. n := 5;
  4902. t1 := 1;
  4903. t2 := 2;
  4904. t3 := 3;
  4905. t4 := 4;
  4906. t5 := 5;
  4907.  
  4908. adj_fill.B()                         % fixed x points
  4909.      ()                         % fixed y points
  4910.      ((1,2), (5,2))                    % tied points
  4911.      ((2,4))                         % verticals
  4912.      ((1,3))                         % horizontals
  4913.      ((398,177)--                    % 0
  4914.       (398,387){-1,0}...               % 1
  4915.       (185,177){0,-1}...               % 2
  4916.       (398,-44){1,0}...               % 3
  4917.       (604,177){0,1}...{-1,0}          % 4
  4918.       (398,387)--cycle);               % 5
  4919.  
  4920. %endchar(0);
  4921. endchar(150h#); % DEK
  4922.  
  4923. "fmdoublequote";
  4924.  
  4925. %charbegin( 125, 795h#, ascender*v#, lcbody*v#);
  4926. charbegin( 125, 795h#, ascender*v#, baseline*v#); % DEK
  4927. n := 4;
  4928. t1 := 0;
  4929. t2 := 2;
  4930. t3 := 7;
  4931. t4 := 9;
  4932.  
  4933. adj_fill.A()                         % fixed x points
  4934.      ()                         % fixed y points
  4935.      ((1,1), (4,1))                    % tied points
  4936.      ((2,3))                         % verticals
  4937.      ()                         % horizontals
  4938.      ((159,2573){-1,0}...               % 0
  4939.       (65,2538){-208,-163}...          % 1
  4940.       (32,2431){0,-1}...               % 2
  4941.       (52,2162){72,-562}...{72,-562}          % 3
  4942.       (124,1600)--                    % 4
  4943.       (205,1600){77,705}...               % 5
  4944.       (282,2305){77,705}...               % 6
  4945.       (282,2497){0,1}...               % 7
  4946.       (240,2554){-219,158}...{-1,0}          % 8
  4947.       (159,2573)--cycle);               % 9
  4948.  
  4949. n := 4;
  4950. t1 := 0;
  4951. t2 := 2;
  4952. t3 := 7;
  4953. t4 := 9;
  4954.  
  4955. adj_fill.B()                         % fixed x points
  4956.      ()                         % fixed y points
  4957.      ((1,2), (4,2))                    % tied points
  4958.      ((2,3))                         % verticals
  4959.      ()                         % horizontals
  4960.      ((617,2561){-1,0}...               % 0
  4961.       (498,2528){-155,-140}...          % 1
  4962.       (474,2470){0,-1}...               % 2
  4963.       (491,2311){84,-711}...{84,-711}     % 3
  4964.       (575,1600)--                    % 4
  4965.       (651,1600){69,718}...               % 5
  4966.       (720,2318){69,718}...               % 6
  4967.       (725,2489){0,1}...               % 7
  4968.       (703,2532){-204,227}...{-1,0}          % 8
  4969.       (617,2561)--cycle);               % 9
  4970.  
  4971. endchar(0);
  4972.  
  4973. "fmlefttquote";
  4974.  
  4975. %charbegin( 18, 795h#, ascender*v#, lcbody*v#);
  4976. charbegin( 18, 795h#, ascender*v#, baseline*v#); % DEK
  4977.  
  4978. n := 2;
  4979. t1 := 0;
  4980. t2 := 12;
  4981.  
  4982. adj_fill.A()                         % fixed x points
  4983.      ()                         % fixed y points
  4984.      ((1,1), (2,1))                    % tied points
  4985.      ()                         % verticals
  4986.      ()                         % horizontals
  4987.      ((529,1568){-275,-225}...          % 0
  4988.       (433,1518){-1,0}...               % 1
  4989.       (339,1576){-239,317}...          % 2
  4990.       (166,2001){0,1}...               % 3
  4991.       (258,2252){166,276}...{350,433}     % 4
  4992.       (519,2623)--                    % 5
  4993.       (568,2570){-215,-370}...          % 6
  4994.       (422,2281){-95,-210}...          % 7
  4995.       (388,2135){0,-1}...               % 8
  4996.       (439,1969){118,-183}...          % 9
  4997.       (557,1786){118,-183}...          % 10
  4998.       (590,1685){0,-1}...{-391,-302}          % 11
  4999.       (529,1568)--cycle);               % 12
  5000.  
  5001. endchar(0);
  5002.  
  5003. "fmrightquote";
  5004.  
  5005. %charbegin( 19, 795h#, ascender*v#, lcbody*v#);
  5006. charbegin( 19, 795h#, ascender*v#, baseline*v#); % DEK
  5007.  
  5008. n := 2;
  5009. t1 := 6;
  5010. t2 := 7;
  5011.  
  5012. adj_fill.A()                         % fixed x points
  5013.      ()                         % fixed y points
  5014.      ((1,1), (2,1))                    % tied points
  5015.      ()                         % verticals
  5016.      ()                         % horizontals
  5017.      ((213,1502){198,333}...               % 0
  5018.       (356,1770){155,386}...               % 1
  5019.       (392,1942){0,1}...               % 2
  5020.       (345,2087){-132,210}...          % 3
  5021.       (213,2297){-132,210}...          % 4
  5022.       (182,2404){0,1}...{189,173}          % 5
  5023.       (208,2493)--                    % 6
  5024.       (208,2493){333,295}...               % 7
  5025.       (338,2562){1,0}...               % 8
  5026.       (448,2480){237,-343}...          % 9
  5027.       (579,2223){116,-321}...          % 10
  5028.       (604,2085){0,-1}...               % 11
  5029.       (505,1792){-275,-484}...{-253,-383}     % 12
  5030.       (274,1460)--cycle);               % 13
  5031.  
  5032. endchar(0);
  5033.  
  5034. "fmlparenthesis";
  5035.  
  5036. %charbegin( 40, 795h#, programem*v#, descender*v#);
  5037. charbegin( 40,1439h#, .75programem*v#, .25programem*v#); % DEK
  5038. n := 6;
  5039. t1 := 0;
  5040. t2 := 3;
  5041. t3 := 6;
  5042. t4 := 7;
  5043. t5 := 10;
  5044. t6 := 14;
  5045.  
  5046. adj_fill.A(1, 3, 4, 6)                    % fixed x points
  5047.      ()                         % fixed y points
  5048.      ()                         % tied points
  5049.      ((2,5))                         % verticals
  5050.      ()                         % horizontals
  5051.      ((731,-690){-218,40}...               % 0
  5052.       (320,-398){-256,346}...          % 1
  5053.       (128,140){-258,1434}...          % *2
  5054.       (62,1036){0,1}...               % 3
  5055.       (136,1888){289,1419}...          % *4
  5056.       (351,2455){239,346}...{360,106}     % 5
  5057.       (731,2729)--                    % 6
  5058.       (731,2661){-349,-175}...          % 7
  5059.       (458,2366){-219,-458}...          % 8
  5060.       (304,1811){-206,-1351}...          % *9
  5061.       (252,1015){0,-1}...               % 10
  5062.       (318,66){256,-1470}...               % *11
  5063.       (399,-253){189.9,-521.3}...          % *12
  5064.       (508,-455){221,-253}...{242,-74}     % 13
  5065.       (731,-636)--cycle);               % 14
  5066.  
  5067. %endchar(0);
  5068. endchar(357h#); % DEK
  5069.  
  5070. "fmrparenthesis";
  5071.  
  5072. %charbegin( 41, 795h#, programem*v#, descender*v#);
  5073. charbegin( 41,1439h#, .75programem*v#, .25programem*v#); % DEK
  5074. n := 6;
  5075. t1 := 0;
  5076. t2 := 3;
  5077. t3 := 6;
  5078. t4 := 7;
  5079. t5 := 10;
  5080. t6 := 14;
  5081.  
  5082. adj_fill.A(1, 3, 4, 6)                    % fixed x points
  5083.      ()                         % fixed y points
  5084.      ()                         % tied points
  5085.      ((2,5))                         % verticals
  5086.      ()                         % horizontals
  5087.      ((29,-691){335,60}...               % 0
  5088.       (429,-482){224,270}...               % 1
  5089.       (647,74){294,1490}...               % *2
  5090.       (723,1008){0,1}...               % 3
  5091.       (627,1937){-372,1516}...          % *4
  5092.       (351,2524){-233,253}...{-573,119}     % 5
  5093.       (29,2721)--                    % 6
  5094.       (29,2644){386,-185}...               % 7
  5095.       (254,2449){217,-312}...          % 8
  5096.       (457,1892){273,-1429}...          % *9
  5097.       (527,1020){0,-1}...               % 10
  5098.       (477,45){-210,-1464}...          % *11
  5099.       (412,-254){-159.7,-489.3}...          % *12
  5100.       (317,-444){-248,-309}...{-314,-129}     % 13
  5101.       (29,-632)--cycle);               % 14
  5102.  
  5103. %endchar(0);
  5104. endchar(300h#); % DEK
  5105.  
  5106. "fmast";
  5107.  
  5108. %charbegin( 42, 1028h#, programem*v#, descender*v#);
  5109. charbegin( 42, 1028h#, theight*v#, baseline*v#); % DEK
  5110.  
  5111. n := 3;
  5112. t1 := .5179;
  5113. t2 := 2;
  5114. t3 := 2.575;
  5115.  
  5116. adj_fill.A(2)                         % fixed x points
  5117.      ()                         % fixed y points
  5118.      ()                         % tied points
  5119.      ((1,3))                         % verticals
  5120.      ()                         % horizontals
  5121.      ((463,1663){16,302}...{-30,642}          % 0
  5122.       (465,2562)--                    % 1
  5123.       (561,2562){-47,-490}...{50,-366}     % 2
  5124.       (556,1663)--cycle);               % 3
  5125.  
  5126. n := 0;
  5127.  
  5128. adj_fill.B()                         % fixed x points
  5129.      ()                         % fixed y points
  5130.      ()                         % tied points
  5131.      ()                         % verticals
  5132.      ()                         % horizontals
  5133.      ((803,1831){-225,196}...{-570,325}     % 0
  5134.       (123,2328)--                    % 1
  5135.       (203,2415){385,-363}...{187,-114}     % 2
  5136.       (868,1909)--cycle);               % 3
  5137.  
  5138. n := 0;
  5139.  
  5140. adj_fill.C()                         % fixed x points
  5141.      ()                         % fixed y points
  5142.      ()                         % tied points
  5143.      ()                         % verticals
  5144.      ()                         % horizontals
  5145.      ((865,2345){-203,-125}...{-502,-449}     % 0
  5146.       (166,1830)--                    % 1
  5147.       (121,1909){411,261}...{291,254}     % 2
  5148.       (810,2416)--cycle);               % 3
  5149.  
  5150. endchar(0);
  5151.  
  5152. "rmplus";
  5153.  
  5154. %charbegin( 43, 1838h#, lcbody*v#, baseline*v#);
  5155. charbegin( 43, 2800h#, (1233+925)*v#, (1233-925)*v#); % DEK
  5156. n := 2;
  5157. t1 := 1;
  5158. t2 := 2;
  5159.  
  5160. adj_fill.A()                         % fixed x points
  5161.      ()                         % fixed y points
  5162.      ()                         % tied points
  5163.      ()                         % verticals
  5164.      ((1,2))                         % horizontals
  5165. %     ((1788,1044){-1655,0}...{-1655,0}     % 0
  5166. %      (133,1044)--                    % 1
  5167. %      (78,898){1660,0}...{1660,0}          % 2
  5168. %      (1738,898)--cycle);               % 3
  5169.      ((2625,1044){-1655,0}...{-1655,0}     % 0 % DEK
  5170.       (230,1044)--                    % 1
  5171.       (175,898){1660,0}...{1660,0}          % 2
  5172.       (2575,898)--cycle);               % 3
  5173.  
  5174. n := 2;
  5175. t1 := 1;
  5176. t2 := 2;
  5177.  
  5178. adj_fill.B()                         % fixed x points
  5179.      ()                         % fixed y points
  5180.      ()                         % tied points
  5181.      ((1,2))                         % verticals
  5182.      ()                         % horizontals
  5183. %     ((853,2){0,1760}...{0,1760}          % 0
  5184. %      (853,1762)--                    % 1
  5185. %      (1010,1815){0,-1742}...{0,-1742}     % 2
  5186. %      (1010,73)--cycle);               % 3
  5187.      ((1322,-306){0,1760}...{0,1760}          % 0 % DEK
  5188.       (1322,2161)--                    % 1
  5189.       (1479,2214){0,-1742}...{0,-1742}     % 2
  5190.       (1479,-235)--cycle);               % 3
  5191.  
  5192. endchar(0);
  5193.  
  5194. "fmcomma";
  5195.  
  5196. %charbegin( 44, 1840h#, lcbody*v#, baseline*v#);
  5197. charbegin( 44,(1840-812)*h#, 400*v#, baseline*v#); % DEK
  5198. n := 4;
  5199. t1 := 5;
  5200. t2 := 6;
  5201. t3 := 7;
  5202. t4 := 11;
  5203.  
  5204. adj_fill.A()                         % fixed x points
  5205.      ()                         % fixed y points
  5206.      ((2,1), (3,1))                    % tied points
  5207.      ((1,4))                         % verticals
  5208.      ()                         % horizontals
  5209.      ((813,-642){171,229}...               % 0
  5210.       (959,-368){161,387}...               % 1
  5211.       (986,-224){0,1}...               % 2
  5212.       (938,-69){-128,177}...               % 3
  5213.       (810,108){-128,177}...               % 4
  5214.       (773,228){0,1}...{271,188}          % 5
  5215.       (838,354)--                    % 6
  5216.       (838,354){373,276}...               % 7
  5217.       (945,396){1,0}...               % 8
  5218.       (1038,323){228,-317}...          % 9
  5219.       (1167,90){103,-266}...               % 10
  5220.       (1197,-100){0,-1}...               % 11
  5221.       (1115,-357){-254,-409}...{-156,-187}     % 12
  5222.       (855,-710)--cycle);               % 13
  5223.  
  5224. %endchar(0);
  5225. endchar(-406h#); % DEK
  5226.  
  5227. "fmminus";
  5228.  
  5229. %charbegin( 45, 1824h#, lcbody*v#, baseline );
  5230. charbegin( 45, 2800h#, (1233+925)*v#, (1233-925)*v#); % DEK
  5231.  
  5232. n := 0;
  5233.  
  5234. adj_fill.A()                         % fixed x points
  5235.      ()                         % fixed y points
  5236.      ()                         % tied points
  5237.      ()                         % verticals
  5238.      ()                         % horizontals
  5239. %     ((1754,1018){-1650,0}...{-1650,0}     % 0
  5240. %      (104,1018)--                    % 1
  5241. %      (70,874){1651,0}...{1651,0}          % 2
  5242. %      (1721,874)--cycle);               % 3
  5243.      ((2614,1018){-1650,0}...{-1650,0}     % 0 % DEK
  5244.       (230,1018)--                    % 1
  5245.       (170,874){1651,0}...{1651,0}          % 2
  5246.       (2564,874)--cycle);               % 3
  5247.  
  5248. endchar(0);
  5249.  
  5250. "fbequalsign";
  5251.  
  5252. charbegin( 61, 1824h#, lcbody*v#, baseline );
  5253.  
  5254. n := 2;
  5255. t1 := 1;
  5256. t2 := 2;
  5257.  
  5258. adj_fill.A()                         % fixed x points
  5259.      ()                         % fixed y points
  5260.      ()                         % tied points
  5261.      ()                         % verticals
  5262.      ((1,2))                         % horizontals
  5263.      ((1754,1268){-1650,0}...{-1650,0}     % 0
  5264.       (104,1268)--                    % 1
  5265.       (70,1124){1651,0}...{1651,0}          % 2
  5266.       (1721,1124)--cycle);               % 3
  5267.  
  5268. n := 2;
  5269. t1 := 1;
  5270. t2 := 2;
  5271.  
  5272. adj_fill.B()                         % fixed x points
  5273.      ()                         % fixed y points
  5274.      ()                         % tied points
  5275.      ()                         % verticals
  5276.      ((1,2))                         % horizontals
  5277.      ((1754,768){-1650,0}...{-1650,0}     % 0
  5278.       (104,768)--                    % 1
  5279.       (70,624){1651,0}...{1651,0}          % 2
  5280.       (1721,624)--cycle);               % 3
  5281.  
  5282. endchar(0);
  5283.  
  5284. "fmperiod";
  5285.  
  5286. %charbegin( 46, 1840h#, lcbody*v#, baseline*v#);
  5287. charbegin( 46, (1840-812)*h#, 400*v#, baseline*v#); % DEK
  5288.  
  5289. n := 5;
  5290. t1 := 1;
  5291. t2 := 2;
  5292. t3 := 3;
  5293. t4 := 4;
  5294. t5 := 5;
  5295.  
  5296. adj_fill.A()                         % fixed x points
  5297.      ()                         % fixed y points
  5298.      ((1,1), (5,1))                    % tied points
  5299.      ((2,4))                         % verticals
  5300.      ((1,3))                         % horizontals
  5301.      ((931,163)--                    % 0
  5302.       (931,378){-1,0}...               % 1
  5303.       (729,163){0,-1}...               % 2
  5304.       (931,-55){1,0}...               % 3
  5305.       (1148,163){0,1}...{-1,0}          % 4
  5306.       (931,378)--cycle);               % 5
  5307.  
  5308. %endchar(0);
  5309. endchar(-406h#); % DEK
  5310.  
  5311. "rmslash";
  5312.  
  5313. %charbegin( 47, 1796h#, programem*v#, descender*v#);
  5314. charbegin( 47, 1858h#, .75programem*v#, .25programem*v#); % DEK
  5315. n := 0;
  5316.  
  5317. numeric a[],b[],alpha,beta;
  5318. pair vec;
  5319. .5[b0,b3]=.75programem-120;  b1=b2=-.25programem+250; b0-b3=33;
  5320. .5[a0,a3]=1652; .5[a1,a2]=205;
  5321. vec=(.5[a0-a1,a3-a2],.5[b0-b1,b3-b2]);
  5322. (a3,b3)-(a2,b2)=alpha*vec;
  5323. (a1,b1)=beta*vec+(a2,b2)+145*(unitvector vec rotated 90);
  5324.  
  5325. adj_fill.A()                         % fixed x points
  5326.      ()                         % fixed y points
  5327.      ()                         % tied points
  5328.      ()                         % verticals
  5329.      ()                         % horizontals
  5330. %     ((1614,2740){-1519,-3012}...{-1519,-3012}% 0
  5331. %      (95,-272)--                    % 1
  5332. %      (223,-284){1505,2991}...{1505,2991}     % 2
  5333. %      (1728,2707)--cycle);               % 3
  5334.      ((a0,b0)--                    % 0 % DEK
  5335.       (a1,b1)--                    % 1
  5336.       (a2,b2)--                    % 2
  5337.       (a3,b3)--cycle);               % 3
  5338.  
  5339. endchar(0);
  5340.  
  5341. "fmcolon";
  5342.  
  5343. charbegin( 58, 800h#, lcbody*v#, baseline*v#);
  5344.  
  5345. n := 5;
  5346. t1 := 1;
  5347. t2 := 2;
  5348. t3 := 3;
  5349. t4 := 4;
  5350. t5 := 5;
  5351.  
  5352. adj_fill.A()                         % fixed x points
  5353.      ()                         % fixed y points
  5354.      ((1,1), (5,1))                    % tied points
  5355.      ((2,4))                         % verticals
  5356.      ((1,3))                         % horizontals
  5357.      ((371,1477)--                    % 0
  5358.       (371,1693){-1,0}...               % 1
  5359.       (180,1477){0,-1}...               % 2
  5360.       (371,1269){1,0}...               % 3
  5361.       (610,1477){0,1}...{-1,0}          % 4
  5362.       (371,1693)--cycle);               % 5
  5363.  
  5364. n := 5;
  5365. t1 := 1;
  5366. t2 := 2;
  5367. t3 := 3;
  5368. t4 := 4;
  5369. t5 := 5;
  5370.  
  5371. adj_fill.B()                         % fixed x points
  5372.      ()                         % fixed y points
  5373.      ((1,2), (5,2))                    % tied points
  5374.      ((2,4))                         % verticals
  5375.      ((1,3))                         % horizontals
  5376.      ((371,152)--                    % 0
  5377.       (371,389){-1,0}...               % 1
  5378.       (195,152){0,-1}...               % 2
  5379.       (371,-45){1,0}...               % 3
  5380.       (621,152){0,1}...{-1,0}          % 4
  5381.       (371,389)--cycle);               % 5
  5382.  
  5383. endchar(0);
  5384.  
  5385. "fmsemicolon";
  5386.  
  5387. %charbegin( 59, 800h#, lcbody*v#, baseline*v#);
  5388. charbegin( 59, 800h#, lcbody*v#, 2/3descender*v#); % DEK
  5389.  
  5390. n := 5;
  5391. t1 := 1;
  5392. t2 := 2;
  5393. t3 := 3;
  5394. t4 := 4;
  5395. t5 := 5;
  5396.  
  5397. adj_fill.A()                         % fixed x points
  5398.      ()                         % fixed y points
  5399.      ((1,1), (5,1))                    % tied points
  5400.      ((2,4))                         % verticals
  5401.      ((1,3))                         % horizontals
  5402.      ((372,1480)--                    % 0
  5403.       (372,1697){-1,0}...               % 1
  5404.       (175,1480){0,-1}...               % 2
  5405.       (372,1270){1,0}...               % 3
  5406.       (602,1480){0,1}...{-1,0}          % 4
  5407.       (372,1697)--cycle);               % 5
  5408.  
  5409. n := 0;
  5410.  
  5411. adj_fill.B()                         % fixed x points
  5412.      ()                         % fixed y points
  5413.      ()                         % tied points
  5414.      ()                         % verticals
  5415.      ()                         % horizontals
  5416.      ((273,-656){159,216}...               % 0
  5417.       (423,-380){139,329}...               % 1
  5418.       (449,-236){0,1}...               % 2
  5419.       (400,-95){-126,188}...               % 3
  5420.       (274,93){-126,188}...               % 4
  5421.       (240,190){0,1}...{277,281}          % 5
  5422.       (283,308)--                    % 6
  5423.       (282,325){346,281}...               % 7
  5424.       (398,366){1,0}...               % 8
  5425.       (479,327){185,-206}...               % 9
  5426.       (624,103){117,-298}...               % 10
  5427.       (664,-83){7,-393}...               % 11
  5428.       (576,-360){-202,-358}...{-227,-281}     % 12
  5429.       (331,-702)--cycle);               % 13
  5430.  
  5431. endchar(0);
  5432.  
  5433. "fmlbrk";
  5434.  
  5435. %charbegin( 91, 805h#, programem*v#, descender*v#);
  5436. charbegin( 91, 805h#, .75programem*v#, .25programem*v#); % DEK
  5437.  
  5438. n := 6;
  5439. t1 := 0;
  5440. t2 := 1;
  5441. t3 := 2;
  5442. t4 := 5;
  5443. t5 := 6;
  5444. t6 := 7;
  5445.  
  5446. adj_fill.A(2, 5)                    % fixed x points
  5447.      (1, 2)                         % fixed y points
  5448.      ()                         % tied points
  5449.      ((1,6))                         % verticals
  5450.      ((3,4))                         % horizontals
  5451.      ((708,-442){-1,0}...{-563,-62}          % 0
  5452.       (112,-482){0,3222}...{0,3222}          % 1
  5453.       (112,2740){221,-23}...{1,0}          % 2
  5454.       (708,2725)--                    % 3
  5455.       (708,2633){-439,-45}...{-439,-45}     % 4
  5456.       (269,2588){0,-2931}...{0,-2931}     % 5
  5457.       (269,-343){439,-26}...{439,-26}     % 6
  5458.       (708,-369)--cycle);               % 7
  5459.  
  5460. endchar(0);
  5461.  
  5462. "fmrbrk";
  5463.  
  5464. %charbegin( 93, 805h#, programem*v#, descender*v#);
  5465. charbegin( 93, 805h#, .75programem*v#, .25programem*v#); % DEK
  5466.  
  5467. n := 6;
  5468. t1 := 0;
  5469. t2 := 1;
  5470. t3 := 2;
  5471. t4 := 5;
  5472. t5 := 6;
  5473. t6 := 7;
  5474.  
  5475. adj_fill.A(2, 5)                    % fixed x points
  5476.      (1, 2)                         % fixed y points
  5477.      ()                         % tied points
  5478.      ((1,6))                         % verticals
  5479.      ((3,4))                         % horizontals
  5480.      ((45,-458){1,0}...{614,-78}          % 0
  5481.       (651,-487){0,3220}...{0,3220}          % 1
  5482.       (651,2733){-397,-48}...{-1,0}          % 2
  5483.       (45,2712)--                    % 3
  5484.       (45,2622){449,-32}...{449,-32}          % 4
  5485.       (494,2590){0,-2931}...{0,-2931}     % 5
  5486.       (494,-341){-449,-40}...{-449,-40}     % 6
  5487.       (45,-381)--cycle);               % 7
  5488.  
  5489. endchar(0);
  5490.  
  5491. "fmappostrophe";
  5492.  
  5493. charbegin( 39, 785h#, capheight*v#, baseline );
  5494.  
  5495. n := 4;
  5496. t1 := 0;
  5497. t2 := 2;
  5498. t3 := 7;
  5499. t4 := 9;
  5500.  
  5501. adj_fill.A()                         % fixed x points
  5502.      ()                         % fixed y points
  5503.      ((1,1), (4,1))                    % tied points
  5504.      ((2,3))                         % verticals
  5505.      ()                         % horizontals
  5506.      ((385,2573){-1,0}...               % 0
  5507.       (285,2537){-105,-94}...          % 1
  5508.       (251,2464){0,-1}...               % 2
  5509.       (258,2326){69,-712}...{69,-712}     % 3
  5510.       (327,1614)--                    % 4
  5511.       (386,1614){96,686}...               % 5
  5512.       (482,2300){96,686}...               % 6
  5513.       (497,2449){0,1}...               % 7
  5514.       (466,2544){-152,162}...{-1,0}          % 8
  5515.       (385,2573)--cycle);               % 9
  5516.  
  5517. endchar(0);
  5518.  
  5519. "fbqmark";     %bold question mark
  5520.  
  5521. charbegin( 63, 1342h#, capheight*v#, baseline );
  5522.  
  5523. n := 10;
  5524. t1 := 0;
  5525. t2 := 2;
  5526. t3 := 4;
  5527. t4 := 6;
  5528. t5 := 9;
  5529. t6 := 12;
  5530. t7 := 14;
  5531. t8 := 17;
  5532. t9 := 19;
  5533. t10 := 21;
  5534.  
  5535. adj_fill.A()                         % fixed x points
  5536.      (1, 6)                         % fixed y points
  5537.      ()                         % tied points
  5538.      ((5,7), (4,8), (2,10))               % verticals
  5539.      ((3,9))                         % horizontals
  5540.      ((244,1817){-251,167}...          % 0
  5541.       (186,1849){-1,1}...               % 1
  5542.       (122,2043){0,1}...               % 2
  5543.       (234,2335){1,1}...               % 3
  5544.       (825,2585){1,0}...               % 4
  5545.       (1194,2452){1,-1}...               % 5
  5546.       (1325,2135){0,-1}...               % 6
  5547.       (1089,1610){-367,-330}...          % 7
  5548.       (680,1238){-729,-649}...          % 8
  5549.       (565,1019){0,-1}...{136,-128}          % 9
  5550.       (657,823){4,-20}...{4,-20}          % 10
  5551.       (661,803)--                    % 11
  5552.       (443,628){-301,124}...               % 12
  5553.       (337,691){-1,1}...               % 13
  5554.       (260,888){0,1}...               % 14
  5555.       (386,1149){549,466}...               % 15
  5556.       (736,1456){451,362}...               % 16
  5557.       (978,2030){0,1}...               % 17
  5558.       (856,2334){-1,1}...               % 18
  5559.       (655,2419){-1,0}...               % 19
  5560.       (439,2338){-1,-1}...               % 20
  5561.       (379,2188){0,-1}...               % 21
  5562.       (443,2019){212,-261}...{206,-154}     % 22
  5563.       (479,1974)--cycle);               % 23
  5564.  
  5565. n := 6;
  5566. t1 := 0;
  5567. t2 := 1;
  5568. t3 := 2;
  5569. t4 := 3;
  5570. t5 := 4;
  5571. t6 := 5;
  5572.  
  5573. adj_fill.B()                         % fixed x points
  5574.      ()                         % fixed y points
  5575.      ((1,2), (3,1), (4,1), (6,2))          % tied points
  5576.      ((2,5))                         % verticals
  5577.      ((1,3), (4,6))                    % horizontals
  5578.      ((526,-54){1,0}...               % 0
  5579.       (759,202){0,1}...{-1,0}          % 1
  5580.       (540,421)--                    % 2
  5581.       (540,421){-1,0}...               % 3
  5582.       (298,178){0,-1}...{1,0}          % 4
  5583.       (526,-54)--cycle);               % 5
  5584.  
  5585. endchar(0);
  5586.  
  5587. "fbamp";     %bold ampersand
  5588.  
  5589. charbegin( 38, 2732h#, capheight*v#, baseline );
  5590.  
  5591. n := 36;
  5592. t1 := 1;
  5593. t2 := 2;
  5594. t3 := 3;
  5595. t4 := 4;
  5596. t5 := 5;
  5597. t6 := 6;
  5598. t7 := 8;
  5599. t8 := 10;
  5600. t9 := 11;
  5601. t10 := 13;
  5602. t11 := 15;
  5603. t12 := 17;
  5604. t13 := 18;
  5605. t14 := 19;
  5606. t15 := 21;
  5607. t16 := 22;
  5608. t17 := 23;
  5609. t18 := 25;
  5610. t19 := 26;
  5611. t20 := 28;
  5612. t21 := 29;
  5613. t22 := 30;
  5614. t23 := 32;
  5615. t24 := 33;
  5616. t25 := 34;
  5617. t26 := 36;
  5618. t27 := 38;
  5619. t28 := 40;
  5620. t29 := 41;
  5621. t30 := 43;
  5622. t31 := 45;
  5623. t32 := 46;
  5624. t33 := 47;
  5625. t34 := 48;
  5626. t35 := 50;
  5627. t36 := 51;
  5628.  
  5629. adj_fill.A(19, 36)                    % fixed x points
  5630.      (18)                         % fixed y points
  5631.      ((1,10), (2,1), (4,2), (5,3), (8,4), (9,5), (13,5), (14,6), (15,7),% tied points
  5632.       (16,2), (21,3), (22,8), (23,9), (24,4), (28,6), (29,9), (32,8), (33,7))
  5633.      ((12,25), (10,27), (7,30), (3,34))     % verticals
  5634.      ((17,20), (11,26), (6,31), (1,35))     % horizontals
  5635.      ((1356,1493){648,-35}...{1,0}          % 0
  5636.       (1713,1483){416,-174}...{416,-174}     % 1
  5637.       (2129,1309){51,-528}...          % 2
  5638.       (2147,1143){0,-1}...               % 3
  5639.       (1885,405){-239,-315}...          % 4
  5640.       (1556,137){-317,-170}...          % 5
  5641.       (901,-52){-1,0}...               % 6
  5642.       (335,179){-1,1}...               % 7
  5643.       (133,681){0,1}...               % 8
  5644.       (320,1169){1,1}...               % 9
  5645.       (677,1432){215,143}...               % 10
  5646.       (1000,1645){325,200}...          % 11
  5647.       (1163,1765){1,1}...               % 12
  5648.       (1315,2174){0,1}...               % 13
  5649.       (1234,2384){-1,1}...               % 14
  5650.       (1114,2449){-1,0}...               % 15
  5651.       (957,2388){-1,-1}...               % 16
  5652.       (873,2131){0,-1}...               % 17
  5653.       (1000,1645){83,-155}...          % 18
  5654.       (1048,1532){63,-108}...          % 19
  5655.       (1353,1027){317,-461}...          % 20
  5656.       (1764,507){203,-206}...          % 21
  5657.       (1885,405){246,-185}...          % 22
  5658.       (2219,261){1,0}...               % 23
  5659.       (2360,316){1,1}...{118,340}          % 24
  5660.       (2555,681)--                    % 25
  5661.       (2634,660){-133,-584}...          % 26
  5662.       (2354,75){-1,-1}...               % 27
  5663.       (2035,-60){-1,0}...               % 28
  5664.       (1556,137){-409,371}...          % 29
  5665.       (1470,235){-287,327}...          % 30
  5666.       (1036,795){-250,386}...          % 31
  5667.       (730,1310){-226,423}...          % 32
  5668.       (677,1432){-152,412}...          % 33
  5669.       (581,1881){0,1}...               % 34
  5670.       (743,2370){1,1}...               % 35
  5671.       (1287,2578){1,0}...               % 36
  5672.       (1580,2472){1,-1}...               % 37
  5673.       (1669,2232){0,-1}...               % 38
  5674.       (1508,1850){-1,-1}...               % 39
  5675.       (1048,1532){-352,-204}...          % 40
  5676.       (730,1310){-415,-259}...          % 41
  5677.       (622,1231){-1,-1}...               % 42
  5678.       (498,878){0,-1}...               % 43
  5679.       (739,313){1,-1}...               % 44
  5680.       (1151,140){1,0}...               % 45
  5681.       (1470,235){304,114}...               % 46
  5682.       (1764,507){328,369}...               % 47
  5683.       (1916,932){0,1}...               % 48
  5684.       (1793,1239){-1,1}...               % 49
  5685.       (1540,1322){-1,0}...{-514,-64}          % 50
  5686.       (1353,1312)--cycle);               % 51
  5687.  
  5688. n := 5;
  5689. t1 := 0;
  5690. t2 := 1;
  5691. t3 := 2;
  5692. t4 := 3.418;
  5693. t5 := 5;
  5694.  
  5695. adj_fill.B()                         % fixed x points
  5696.      (4)                         % fixed y points
  5697.      ((2,10), (3,1))                    % tied points
  5698.      ()                         % verticals
  5699.      ((1,5))                         % horizontals
  5700.      ((2621,1510){-366,-19}...{-1,0}          % 0
  5701.       (1713,1483)--                    % 1
  5702.       (2129,1309){22,4}...               % 2
  5703.       (2151,1313){1.984,.1789}...          % 3
  5704.       (2198,1313){482,-18}...{413,-13}     % 4
  5705.       (2611,1300)--cycle);               % 5
  5706.  
  5707. endchar(0);
  5708.  
  5709. "fmcaret";
  5710.  
  5711. %charbegin( 94, 1850h#, programem*v#, lcbody*v#);
  5712. charbegin( 94, 1850h#, capheight*v#, baseline*v#); % DEK
  5713.  
  5714. n := 0;
  5715.  
  5716. adj_fill.A()                         % fixed x points
  5717.      ()                         % fixed y points
  5718.      ()                         % tied points
  5719.      ()                         % verticals
  5720.      ()                         % horizontals
  5721.      ((1832,1798){-905,921}...{-905,921}     % 0
  5722.       (927,2719){-927,-1001}...{-927,-1001}     % 1
  5723.       (0,1718)--                    % 2
  5724.       (85,1672){834,818}...{834,818}          % 3
  5725.       (919,2490){770,-790}...{770,-790}     % 4
  5726.       (1689,1700)--cycle);               % 5
  5727.  
  5728. endchar(0);
  5729.  
  5730. % ALTERNATE CHARACTERS, LOWERCASE
  5731. set_stem_round(300,320,340,340,360,390);
  5732. initrot:=identity shifted(0,-60v);
  5733. more_side(100h#); % DEK
  5734.  
  5735. "fbldb";      % '001
  5736.  
  5737. %charbegin( 0, 1642h#, theight*v#, baseline );
  5738. charbegin( 1, 1642h#, theight*v#, baseline ); % DEK
  5739.  
  5740. n := 10;
  5741. t1 := 0;
  5742. t2 := 1;
  5743. t3 := 3;
  5744. t4 := 6;
  5745. t5 := 8;
  5746. t6 := 9;
  5747. t7 := 12;
  5748. t8 := 14;
  5749. %t9 := 16;
  5750. t9 := 15.6; % DEK
  5751. t10 := 17;
  5752.  
  5753. adj_fill.A(1, 6)                    % fixed x points
  5754.      (5)                         % fixed y points
  5755.      ()                         % tied points
  5756.      ((4,7), (3,9))                    % verticals
  5757.      ((4,8), (2,10))                    % horizontals
  5758.      ((100,2180){181,74}...{566,130}          % 0
  5759.       (564,2394){155,-20}...               % 1
  5760.       (996,2232){931,-534}...{501,-453}     % *2
  5761.       (1495,1860){22,-335}...{-157,-554}     % 3
  5762.       (1358,436){-233,-171}...{-579,-339}     % 4
  5763.       (673,-42){-212,170}...{-506,495}     % 5
  5764.       (200,375){-23,337}...{93,709}          % 6
  5765.       (215,1406){165,161}...{283,181}     % 7
  5766.       (720,1781)--                    % 8
  5767.       (770,1747){-135,-130}...          % 9
  5768.       (635,1617){-217,-203}...          % 10
  5769.       (581,1494){-120,-618}...          % 11
  5770.       (558,719){26,-324}...               % 12
  5771.       (636,545){263,-308}...{342,-223}     % 13
  5772.       (971,274){151,259}...               % 14
  5773.       (1103,787){143,1371}...{-16,325}     % *15
  5774.       (1114,1645){-436,416}...          % 16
  5775.       (389,2132){-205,73}...               % 17
  5776.       (190,2145){-300,-30}...{-48,-15}     % 18
  5777.       (142,2130)--cycle);               % 19
  5778.  
  5779. endchar(0);
  5780.  
  5781. "fblfa";     %'002
  5782. % was "fblf" --- DEK
  5783. %charbegin("f",1034h#, ascender*v#, descender*v#);
  5784. charbegin(2,1034h#, ascender*v#, descender*v#);
  5785.  
  5786. n := 11;
  5787. t1 := 4;
  5788. t2 := 8;
  5789. t3 := 10;
  5790. t4 := 11;
  5791. t5 := 13;
  5792. t6 := 16;
  5793. t7 := 20;
  5794. t8 := 22;
  5795. t9 := 24;
  5796. t10 := 27;
  5797. t11 := 31;
  5798.  
  5799. adj_fill.A(1, 4, 8, 11)                    % fixed x points
  5800.      (1, 6)                         % fixed y points
  5801.      ()                         % tied points
  5802.      ((5,7), (2,10))                    % verticals
  5803.      ((3,4), (7,9))                         % horizontals
  5804.      ((1170,2560){-5,-2}...               % 0
  5805.       (1165,2558){-1.747,-.9454}...{-97,-68}     % 1
  5806.       (1068,2490){-211,124}...          % 2
  5807.       (694,2615){-1,0}...               % 3
  5808.       (710,2615){-260,-103}...          % 4
  5809.       (600,2569){-197,-139}...          % 5
  5810.       (404,2357){-230,-288}...          % 6
  5811.       (339,2202){-88,-394}...          % *7
  5812.       (316,1963){0,-1}...{0,-1}          % 8
  5813.       (316,1559){-160,0}...{-160,0}          % 9
  5814.       (156,1559){-141,-139}...{-141,-139}     % 10
  5815.       (15,1420){8,-20}...{8,-20}          % 11
  5816.       (23,1400){313,0}...{313,0}          % 12
  5817.       (336,1400){0,-1272}...               % 13
  5818.       (336,128){0,-1}...               % 14
  5819.       (307,-337){-86,-419}...{-132,-450}     % 15
  5820.       (201,-725)--                    % 16
  5821.       (279,-720){312,657}...               % 17
  5822.       (591,-63){113,256}...               % 18
  5823.       (643,97){68,428}...{0,1}          % 19
  5824.       (707,1388){257,0}...{257,0}          % 20
  5825.       (964,1388){151,146}...{151,146}     % 21
  5826.       (1115,1534){-1,25}...{-1,25}          % 22
  5827.       (1114,1559){-394,0}...{-394,0}          % 23
  5828.       (720,1559){-150,452}...          % 24
  5829.       (574,1756){-299,353}...          % 25
  5830.       (446,1943){-173,343}...          % *26
  5831.       (401,2099){0,1}...               % 27
  5832.       (466,2229){1,1}...               % 28
  5833.       (598,2271){1,0}...{396,-322}          % 29
  5834.       (842,2113){336,371}...{336,371}     % 30
  5835.       (1178,2484)--cycle);               % 31
  5836.  
  5837. endchar(0);
  5838.  
  5839. "fblfb";      % '003
  5840. % was "fblfa" --- DEK
  5841. %charbegin( 1, 1015h#, theight*v#, baseline );
  5842. charbegin( 3, 1015h#, theight*v#, baseline ); % DEK
  5843.  
  5844. n := 19;
  5845. t1 := 0;
  5846. t2 := 1;
  5847. t3 := 3;
  5848. t4 := 5;
  5849. t5 := 6;
  5850. t6 := 7;
  5851. t7 := 8;
  5852. t8 := 9;
  5853. t9 := 10;
  5854. t10 := 13;
  5855. t11 := 16;
  5856. t12 := 17;
  5857. t13 := 18;
  5858. t14 := 19;
  5859. t15 := 20;
  5860. t16 := 23;
  5861. t17 := 25;
  5862. t18 := 27;
  5863. t19 := 28;
  5864.  
  5865. adj_fill.A(2, 7, 13, 19)               % fixed x points
  5866.      (1, 10, 18)                    % fixed y points
  5867.      ((1,1), (19,1))                    % tied points
  5868.      ((5,15), (4,16), (9,11))          % verticals
  5869.      ((6,8), (3,17), (12,14))          % horizontals
  5870.      ((840,2092){231,303}...               % 0
  5871.       (1071,2395){-226,205}...          % 1
  5872.       (894,2532){-303,185}...          % *2
  5873.       (768,2580){-1,0}...               % 3
  5874.       (449,2466){-1,-1}...{-86,-401}          % 4
  5875.       (215,1983){70,-383}...{172,-641}     % 5
  5876.       (310,1541){-147,0}...{-147,0}          % 6
  5877.       (163,1541){-150,-151}...{-150,-151}     % 7
  5878.       (13,1390){15,-28}...{15,-28}          % 8
  5879.       (28,1362){297,0}...{297,0}          % 9
  5880.       (325,1362){9,-255}...               % 10
  5881.       (330,-56){-11,-307}...               % 11
  5882.       (269,-504){-121,-396}...{-201,-571}     % 12
  5883.       (201,-752)--                    % 13
  5884.       (274,-742){337,665}...{337,665}     % 14
  5885.       (611,-77){12,200}...{0,1}          % 15
  5886.       (685,1362){306,0}...{306,0}          % 16
  5887.       (991,1362){113,158}...{113,158}     % 17
  5888.       (1104,1520){-10,21}...{-10,21}          % 18
  5889.       (1094,1541){-402,0}...{-402,0}          % 19
  5890.       (692,1541){0,1}...               % 20
  5891.       (652,1669){-156,280}...          % *21
  5892.       (536,1821){-531,560}...          % 22
  5893.       (371,2137){0,1}...               % 23
  5894.       (425,2273){1,1}...               % 24
  5895.       (549,2314){1,0}...               % 25
  5896.       (668,2251){249,-234}...{156,-267}     % *26
  5897.       (798,2080){42,12}...{42,12}          % 27
  5898.       (840,2092)--cycle);               % 28
  5899.  
  5900. endchar(0);
  5901.  
  5902. "fblga";      % '004
  5903.  
  5904. %charbegin( 3,1658h#, ascender*v#, descender*v#);
  5905. charbegin( 4,1658h#, ascender*v#, descender*v#); % DEK
  5906.  
  5907. n := 6;
  5908. t1 := 0;
  5909. t2 := 3;
  5910. t3 := 5;
  5911. t4 := 6;
  5912. t5 := 9;
  5913. t6 := 12;
  5914.  
  5915. adj_fill.A(1, 3)                    % fixed x points
  5916.      ()                         % fixed y points
  5917.      ((1,4), (3,1), (4,2), (6,3))          % tied points
  5918.      ((2,5))                         % verticals
  5919.      ()                         % horizontals
  5920.      ((1108,402){-607,-449}...{-607,-449}     % 0
  5921.       (501,-47){-109,133}...{-294,292}     % 1
  5922.       (199,295){-10,265}...{85,650}          % 2
  5923.       (234,1428){148,116}...{375,223}     % 3
  5924.       (820,1813){191,-108}...{385,-101}     % 4
  5925.       (1262,1648)--                    % 5
  5926.       (1106,1344){-308,45}...{-225,133}     % 6
  5927.       (596,1534){-192,-549}...          % 7
  5928.       (528,1153){-53,-884}...          % *8
  5929.       (543,650){29,-280}...               % 9
  5930.       (604,492){201,-269}...{185,-157}     % 10
  5931.       (787,321){315,181}...{315,181}          % 11
  5932.       (1102,502)--cycle);               % 12
  5933.  
  5934. n := 9;
  5935. t1 := 1;
  5936. t2 := 2;
  5937. t3 := 5;
  5938. t4 := 6;
  5939. t5 := 7;
  5940. t6 := 8;
  5941. t7 := 11;
  5942. t8 := 15;
  5943. t9 := 17;
  5944.  
  5945. adj_fill.B(9)                         % fixed x points
  5946.      (1)                         % fixed y points
  5947.      ((3,4), (4,3), (5,2), (6,1))          % tied points
  5948.      ((3,7))                         % verticals
  5949.      ((2,8))                         % horizontals
  5950.      ((316,-104){33,1}...{33,1}          % 0
  5951.       (349,-103){156,-372}...          % 1
  5952.       (899,-436){1,0}...               % 2
  5953.       (1130,-370){1,1}...               % 3
  5954.       (1185,-201){0,1}...{-135,789}          % 4
  5955.       (1108,402){-6,100}...{-6,100}          % 5
  5956.       (1102,502){4,842}...{4,842}          % 6
  5957.       (1106,1344){156,304}...{156,304}     % 7
  5958.       (1262,1648)--                    % 8
  5959.       (1543,1794){21,-25}...{21,-25}          % 9
  5960.       (1564,1769){-262,-683}...          % 10
  5961.       (1465,1052){0,-1}...               % 11
  5962.       (1507,238){56,-424}...               % 12
  5963.       (1529,41){0,-1}...{-199,-502}          % 13
  5964.       (1499,-120){-474,-544}...{-474,-544}     % 14
  5965.       (1025,-664){-597,-187}...          % 15
  5966.       (707,-725){-1,0}...{-261,262}          % 16
  5967.       (109,-468)--cycle);               % 17
  5968.  
  5969. endchar(0);
  5970.  
  5971. "fblka";      % '005
  5972.  
  5973. %charbegin( 4, 1033h#, lcbody*v#, descender*v#);
  5974. charbegin( 5, 1033h#, ascender*v#, baseline*v#); % DEK
  5975.  
  5976. n := 9;
  5977. t1 := 1;
  5978. t2 := 2;
  5979. t3 := 3;
  5980. t4 := 4;
  5981. t5 := 11;
  5982. t6 := 14;
  5983. t7 := 15;
  5984. t8 := 16;
  5985. t9 := 17;
  5986.  
  5987. adj_fill.A(4, 7)                    % fixed x points
  5988.      (5)                         % fixed y points
  5989.      ((1,3), (2,1), (3,2))               % tied points
  5990.      ((3,9))                         % verticals
  5991.      ((6,8))                         % horizontals
  5992.      ((245,2550){94,-280}...{94,-280}     % 0
  5993.       (339,2270){261,-314}...{261,-314}     % 1
  5994.       (600,1956){-26,-413}...{-26,-413}     % 2
  5995.       (574,1543){409,0}...{409,0}          % 3
  5996.       (983,1543){-116,-149}...{-116,-149}     % 4
  5997.       (867,1394){-283,0}...{-283,0}          % 5
  5998.       (584,1394){0,-1}...{31,-572}          % 6
  5999.       (593,540){188,-153}...{386,-250}     % 7
  6000.       (872,328){199,73}...{199,73}          % 8
  6001.       (1071,401)--                    % 9
  6002.       (1079,334){-548,-359}...{-216,-179}     % 10
  6003.       (551,-40){-297,318}...{-185,128}     % 11
  6004.       (176,289){105,434}...{0,1}          % 12
  6005.       (222,1394){-219,0}...{-219,0}          % 13
  6006.       (3,1394){-1,39}...{-1,39}          % 14
  6007.       (2,1433){164,126}...{164,126}          % 15
  6008.       (166,1559){56,-3}...{56,-3}          % 16
  6009.       (222,1556){0,1}...{-69,527}          % 17
  6010.       (197,2513)--cycle);               % 18
  6011.  
  6012. n := 2;
  6013. t1 := 0;
  6014. t2 := 4;
  6015.  
  6016. adj_fill.B()                         % fixed x points
  6017.      ()                         % fixed y points
  6018.      ((1,1), (2,3))                    % tied points
  6019.      ()                         % verticals
  6020.      ()                         % horizontals
  6021.      ((600,1956){0,1}...               % 0
  6022.       (669,2314){186,321}...{278,163}     % 1
  6023.       (886,2561)--                    % 2
  6024.       (833,2591){-413,-224}...{-225,-175}     % 3
  6025.       (339,2270)--cycle);               % 4
  6026.  
  6027. n := 2;
  6028. t1 := 0;
  6029. t2 := 8;
  6030.  
  6031. adj_fill.C()                         % fixed x points
  6032.      ()                         % fixed y points
  6033.      ((1,2), (2,1))                    % tied points
  6034.      ()                         % verticals
  6035.      ()                         % horizontals
  6036.      ((574,1543){0,1}...               % 0
  6037.       (635,1882){247,246}...               % 1
  6038.       (688,1899){1,0}...               % 2
  6039.       (781,1846){208,-200}...{208,-326}     % *3
  6040.       (896,1699){24,9}...{24,9}          % 4
  6041.       (920,1708)--                    % 5
  6042.       (1113,1944){-258,626}...{-213,348}     % 6
  6043.       (970,2220){-370,-264}...{-370,-264}     % 7
  6044.       (600,1956)--cycle);               % 8
  6045.  
  6046. endchar(0);
  6047.  
  6048. "fblta";      % '006
  6049.  
  6050. %charbegin( 5, 1047h#, ascender*v#, baseline );
  6051. charbegin( 6, 1047h#, ascender*v#, baseline ); % DEK
  6052.  
  6053. n := 8;
  6054. t1 := 1;
  6055. t2 := 4;
  6056. t3 := 6;
  6057. t4 := 7;
  6058. t5 := 8;
  6059. t6 := 10;
  6060. t7 := 12;
  6061. t8 := 13;
  6062.  
  6063. adj_fill.A(3, 8)                    % fixed x points
  6064.      (1, 6)                         % fixed y points
  6065.      ()                         % tied points
  6066.      ((5,7))                         % verticals
  6067.      ((2,4))                         % horizontals
  6068.      ((1190,346){-536,-409}...{-394,-326}     % 0
  6069.       (654,-63){-251,260}...{-401,272}     % 1
  6070.       (272,250){39,500}...               % 2
  6071.       (297,895){0,1}...{0,493}          % 3
  6072.       (297,1388){-246,0}...{-246,0}          % 4
  6073.       (51,1388){-6,34}...{-6,34}          % 5
  6074.       (45,1422){135,150}...{135,150}          % 6
  6075.       (180,1572){117,0}...{117,0}          % 7
  6076.       (297,1572){0,455}...{0,455}          % 8
  6077.       (297,2027)--                    % 9
  6078.       (660,2229){35,-33}...{35,-33}          % 10
  6079.       (695,2196){-30,-624}...{0,-1}          % 11
  6080.       (665,1572){343,0}...{343,0}          % 12
  6081.       (1008,1572){0,-35}...{0,-35}          % 13
  6082.       (1008,1537){-137,-147}...{-137,-147}     % 14
  6083.       (871,1390){-206,0}...{-206,0}          % 15
  6084.       (665,1390){0,-1}...{30,-333}          % 16
  6085.       (673,547){244,-288}...{295,-125}     % 17
  6086.       (968,309){222,122}...{222,122}          % 18
  6087.       (1190,431)--cycle);               % 19
  6088.  
  6089. endchar(0);
  6090.  
  6091. "fbuya";      % '010
  6092.  
  6093. %charbegin( 6, 2875h#, ascender*v#, baseline );
  6094. charbegin( 8, 2875h#, ascender*v#, baseline ); % DEK
  6095.  
  6096. n := 13;
  6097. t1 := 0;
  6098. t2 := 3;
  6099. t3 := 5;
  6100. t4 := 7;
  6101. t5 := 10;
  6102. t6 := 13;
  6103. t7 := 15;
  6104. t8 := 16;
  6105. t9 := 18;
  6106. t10 := 22;
  6107. t11 := 24;
  6108. t12 := 27;
  6109. t13 := 30;
  6110.  
  6111. adj_fill.A(7, 13)                    % fixed x points
  6112.      (3, 8, 13)                    % fixed y points
  6113.      ((1,4), (2,1), (3,2), (13,3))          % tied points
  6114.      ((6,9), (5,10), (2,12))               % verticals
  6115.      ((4,11))                    % horizontals
  6116.      ((888,567){134,108}...{325,221}          % 0
  6117.       (1302,894){170,271}...               % 1
  6118.       (1488,1634){0,1}...{-72,549}          % 2
  6119.       (1478,1880){-33,190}...          % 3
  6120.       (1445,2070){-.1711,-.01475}...          % 4
  6121.       (1445,2060){-99,323}...          % 5
  6122.       (1260,2399){-1,1}...               % 6
  6123.       (841,2579){-1,0}...               % 7
  6124.       (221,2305){-1,-1}...               % 8
  6125.       (54,2094){-225,-398}...          % *9
  6126.       (-4,1907){0,-1}...               % 10
  6127.       (44,1749){185,-368}...               % *11
  6128.       (181,1539){318,-408}...          % 12
  6129.       (318,1315){0,-1}...               % 13
  6130.       (225,1151){-1,-1}...{-377,-274}     % 14
  6131.       (94,1029)--                    % 15
  6132.       (167,985){427,302}...               % 16
  6133.       (542,1278){1,1}...               % 17
  6134.       (669,1526){0,1}...               % 18
  6135.       (627,1647){-163,286}...          % *19
  6136.       (506,1812){-432,498}...          % 20
  6137.       (367,2000){-187,326}...          % *21
  6138.       (319,2138){0,1}...               % 22
  6139.       (386,2279){1,1}...               % 23
  6140.       (568,2350){1,0}...               % 24
  6141.       (844,2222){1,-1}...               % 25
  6142.       (1024,1874){243,-889}...          % *26
  6143.       (1087,1333){0,-1}...               % 27
  6144.       (1050,977){-141,-572}...          % *28
  6145.       (946,761){-1,-1}...{-1,0}          % 29
  6146.       (490,595)--cycle);               % 30
  6147.  
  6148. n := 6;
  6149. t1 := 2;
  6150. t2 := 3;
  6151. t3 := 4;
  6152. t4 := 6;
  6153. t5 := 8;
  6154. t6 := 10;
  6155.  
  6156. adj_fill.B()                         % fixed x points
  6157.      (4)                         % fixed y points
  6158.      ((2,4), (3,3))                    % tied points
  6159.      ()                         % verticals
  6160.      ((3,5), (1,6))                    % horizontals
  6161.      ((1767,564){-294,-303}...          % 0
  6162.       (1585,415){-339,-202}...          % *1
  6163.       (1428,362){-1,0}...{-477,230}          % 2
  6164.       (888,567){-398,28}...{-398,28}          % 3
  6165.       (490,595){-141,-140}...{-302,-420}     % 4
  6166.       (7,82)--                    % 5
  6167.       (70,1){261,349}...               % 6
  6168.       (206,164){1,1}...               % 7
  6169.       (433,249){1,0}...               % 8
  6170.       (882,85){337,-176}...               % 9
  6171.       (1245,-55){1,0}...{222,68}          % 10
  6172.       (1277,-47){393,337}...{137,177}     % 11
  6173.       (1786,483)--cycle);               % 12
  6174.  
  6175. n := 10;
  6176. t1 := 0;
  6177. t2 := 2;
  6178. t3 := 5;
  6179. t4 := 7;
  6180. t5 := 8;
  6181. t6 := 9;
  6182. t7 := 10;
  6183. t8 := 12;
  6184. t9 := 15;
  6185. t10 := 18;
  6186.  
  6187. adj_fill.C(1)                         % fixed x points
  6188.      (10)                         % fixed y points
  6189.      ((5,2), (6,1))                    % tied points
  6190.      ((3,8))                         % verticals
  6191.      ((4,7), (2,9))                    % horizontals
  6192.      ((648,-512){195,-391}...          % 0
  6193.       (736,-611){1,-1}...               % 1
  6194.       (1148,-757){1,0}...               % 2
  6195.       (1758,-578){1240,686}...{444,475}     % *3
  6196.       (2388,-71){228,465}...               % 4
  6197.       (2643,1234){0,1}...{-68,797}          % 5
  6198.       (2580,2243){-226,144}...{-394,458}     % 6
  6199.       (2158,2575){-496,-320}...{-622,-562}     % 7
  6200.       (1445,2060)--                    % 8
  6201.       (1478,1880){237,349}...{194,158}     % 9
  6202.       (1784,2189){364,-156}...{243,-193}     % 10
  6203.       (2179,1944){135,-742}...          % 11
  6204.       (2239,1034){0,-1}...               % 12
  6205.       (2151,174){-337,-1380}...          % *13
  6206.       (1902,-346){-1,-1}...               % 14
  6207.       (1466,-554){-1,0}...               % 15
  6208.       (1161,-446){-1,1}...{-10,354}          % 16
  6209.       (1020,-114){-40,7}...{-40,7}          % 17
  6210.       (980,-107)--cycle);               % 18
  6211.  
  6212. endchar(0);
  6213.  
  6214. "fbuza";      % '011
  6215.  
  6216. %charbegin( 7, 2079h#, lcbody*v#, baseline );
  6217. charbegin( 9, 2079h#, lcbody*v#, baseline ); % DEK
  6218.  
  6219. n := 21;
  6220. t1 := 0;
  6221. t2 := 2;
  6222. t3 := 5;
  6223. t4 := 8;
  6224. t5 := 11;
  6225. t6 := 14;
  6226. t7 := 17;
  6227. t8 := 19;
  6228. t9 := 21;
  6229. t10 := 23;
  6230. t11 := 25;
  6231. t12 := 27.4;
  6232. t13 := 29;
  6233. t14 := 30;
  6234. t15 := 32;
  6235. t16 := 35;
  6236. t17 := 36;
  6237. t18 := 39;
  6238. t19 := 43;
  6239. t20 := 45;
  6240. t21 := 47;
  6241.  
  6242. adj_fill.A(1, 11, 12)                    % fixed x points
  6243.      ()                         % fixed y points
  6244.      ()                         % tied points
  6245.      ((8,15), (7,16), (5,18), (3,20))     % verticals
  6246.      ((10,13), (9,14), (6,17), (4,19), (2,21))% horizontals
  6247.      ((-48,-48){406,338}...               % 0
  6248.       (267,159){594,279}...               % *1
  6249.       (546,231){1,0}...               % 2
  6250.       (684,184){1,-1}...               % 3
  6251.       (726,71){33,-299}...               % *4
  6252.       (717,-115){-111,-660}...          % 5
  6253.       (709,-267){0,-1}...               % 6
  6254.       (775,-332){393,-73}...               % 7
  6255.       (844,-348){1,0}...               % 8
  6256.       (1208,-167){1,1}...               % 9
  6257.       (1378,152){230,803}...               % *10
  6258.       (1438,636){0,1}...               % 11
  6259.       (1416,859){-86,357}...               % *12
  6260.       (1352,993){-1,1}...               % 13
  6261.       (936,1128){-1,0}...{-877,-262}          % 14
  6262.       (598,1068){-52,47}...{-52,47}          % 15
  6263.       (546,1115){176,301}...{176,301}     % 16
  6264.       (722,1416){364,71}...               % 17
  6265.       (1121,1641){1,1}...               % 18
  6266.       (1256,2015){0,1}...               % 19
  6267.       (1224,2105){-1,1}...               % 20
  6268.       (1021,2174){-1,0}...               % 21
  6269.       (744,2153){-709,-96}...          % 22
  6270.       (447,2114){-1,0}...               % 23
  6271.       (252,2190){-1,1}...{-116,439}          % 24
  6272.       (204,2314){208,306}...{387,438}     % 25
  6273.       (494,2714)--                    % 26
  6274.       (548,2716){-152,-452}...          % 27
  6275.       (571,2555){1,-1}...               % 28
  6276.       (693,2519){1,0}...               % 29
  6277.       (1249,2540){1,0}...               % 30
  6278.       (1561,2440){1,-1}...               % 31
  6279.       (1638,2270){0,-1}...               % 32
  6280.       (1343,1678){-1,-1}...               % 33
  6281.       (1067,1467){-249,-146}...{-3,-11}     % 34
  6282.       (1064,1456){28,-9}...               % 35
  6283.       (1092,1447){265,26}...               % 36
  6284.       (1276,1450){1,0}...               % 37
  6285.       (1827,1195){1,-1}...               % 38
  6286.       (1884,920){0,-1}...               % 39
  6287.       (1796,313){-339,-1040}...          % *40
  6288.       (1545,-120){-1,-1}...               % 41
  6289.       (759,-448){-1,0}...               % 42
  6290.       (418,-438){-585,66}...               % 43
  6291.       (312,-366){2,191}...               % 44
  6292.       (314,-175){2,191}...               % 45
  6293.       (274,-69){-1,1}...               % 46
  6294.       (186,-27){-1,0}...{-377,-251}          % 47
  6295.       (-16,-101)--cycle);               % 48
  6296.  
  6297. endchar(0);
  6298.  
  6299. "rblnontab1";   %non-tabular 1, bold (fitted 1)
  6300. initrot:=identity; % DEK
  6301. more_side(0); % DEK
  6302. charbegin( 127, 1700h#, lfigheight*v#, baseline );
  6303.  
  6304. n := 6;
  6305. t1 := 0;
  6306. t2 := 1;
  6307. t3 := 5;
  6308. t4 := 6;
  6309. t5 := 7;
  6310. t6 := 9;
  6311.  
  6312. adj_fill.A(3)                         % fixed x points
  6313.      (1, 5)                         % fixed y points
  6314.      ()                         % tied points
  6315.      ((2,6))                         % verticals
  6316.      ((3,4))                         % horizontals
  6317.      ((801,-35){-70,54}...{-70,54}          % 0
  6318.       (731,19){42,421}...               % 1
  6319.       (776,2076){-30,618}...               % 2
  6320.       (745,2154){-1,1}...               % 3
  6321.       (680,2201){-447,0}...{-447,0}          % 4
  6322.       (233,2201)--                    % 5
  6323.       (234,2317){895,319}...               % 6
  6324.       (1129,2636){895,319}...          % 7
  6325.       (1179,2628){1,-1}...               % 8
  6326.       (1202,2580){-70,-895}...          % 9
  6327.       (1142,1050){0,-1}...{26,-509}          % 10
  6328.       (1154,119)--cycle);               % 11
  6329.  
  6330. endchar(0);
  6331.